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Accelerator Ile macht 
Ihren Apple® II, II Plus oder Ile 
dreieinhalbmal schneller. 


Jetzt laufen VisiCalc®, Apple Writer, PASCAL, BASIC, 
Datenbanken usw. endlich ohne langen Zeitverlust. 
Stecken Sie einfach die ACCELERATOR Ile Karte 
in irgendeinen Slot und beobachten Sie, 
wir Ihr Apple loslegt! 

ACCELERATOR Ile besitzt seinen eigenen schnellen 
6502 Prozessor und 80 K-Byte Hochgeschwindigkeits- 
speicher, einschließlich einer eingebauten schnellen 
Sprachkarte und schnellem RAM-Speicherplatz für die 
ROM-Sprache. 

Direkt von Pandasoft (Titan Distributor für Deutschland) 
oder bei Ihrem Applehändler. 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185859 


9) kan ge Druckerinterfaces für Apple II+/e/ 
P 


rinter Interface c/II| Interfaces auf dem neuesten 
Stand der Technik. Kompatibel mit allen gängigen Druckern wie: 
APPLE, EPSON, STAR, NEC, OKIDATA usw. Passende Treiber- 


software wird über Dip-Switch ausgewählt. 
Grafikfähiges Druckerinterface 


Grap Die + das keine Wünsche mehr offen läßt. 


Über 2 Dutzend Kommandos ermöglichen die volle Kontrolle 
über alle Möglichkeiten Ihres | 
Druckers. Jetzt auch mit 

lle Features: Double Hires 
Grafics und 80 Zeichen Dump 
mittels Druckerpuffer nachrüstbar 


über Bufferboard. 
Grapp + Besitzt alle Vorzüge dee aspler Tr; 
hat aber zusätzlich einen integrier- 


ten 16 K Druckpuffer, der auf ü 
32 oder 64 K aufrüstbar ist. AV 
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Serielles Druckerinterface 
speziell für den Apple Image- 
writer. 


Hllorzmk 
[RRAPPLER C 


Seriell-nach-Parallel-Wandler für 
den IIc im Kabel integriert. 


wie Hotlink, jedoch zusätzlich 


Imagewriter Emulation und Grafik 
Software-Diskette. 
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Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 


Telefon: 0 30/3104 23 : Telex: 185 859 




















ThunderScan." 


Ein neues optisches Lesegerät, das beliebige 
Vorlagen in MacPaint überträgt: Fotos, Zeich- 
nungen, Landkarten und Illustrationen werden 
in den Apple-Imagewriter eingespannt und von 
einem Lesekopf, der das Farbband ersetzt, 
abgetastet. 


Edit Scanner Tools 











File 


ThunderScan'" 











Light_Intensity_Gauge 


Liontg 


Contrast = 110% 







Brightness = +10 


Pause | |[Quit Scan 
= 


Lines togo: 186 









@ 32 Graustufen 
@® 30 Punkte/cm Auflösung 

® Ubertragungsmaßstab 25% - 400 % 

@® Vorlagen bis 20x25 cm 

® Nachträgliche Veränderung des Kontrasts 
und der Helligkeit. 


Ppanday®rft Dr.-Ing. Eden 


Uhlandstraße 195 - 1000 Berlin 12 : Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185 859 
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Ein Jahr Peeker 


Mit dem vorliegenden September-Heft 
jährt sich das Erscheinen des Peekers, ein 
‚gebotener Anlaß, um über das Erreichte 
zu reflektieren. Als wir den Peeker im Sep- 
tember des letzten Jahres gründeten, war 
uns klar, daß der Leser zunehmend auf 
kritische Berichte und sorgfältig redigierte 
Programme Wert legt: 

Was die kritischen Berichte anlangt, so 
geht es im Mikrocomputer-Blätterwald ge- 
legentlich zu wie im Opportunitätsjourna- 
lismus: Einige Kleinigkeiten werden be- 
mängelt, aber im übrigen erstrahlt das Pro- 
dukt im hellsten Sonnenschein. Als wäre 
jede Hardware ein Spitzenerzeugnis! Als 
wäre jede Software eine ingeniöse Schöp- 
fung! Schönfärbereien dieser Art haben 
wir nie zugelassen. 

Was die Überarbeitung von Programmen 
betrifft, so lesen wir in H. Feichtingers 
„Arbeitsbuch Mikrocomputer“: „Es gibt 
tatsächlich Zeitschriften, die Programme 
vor dem Abdruck testen!“ Da kann man 
nur sagen: Und nicht nur das! Jedes 
Peeker-Programm wird überarbeitet, oft- 
mals von dem einen Assembler in den 
anderen umgeschrieben, vereinheitlicht 
und in eine lesbare Form gegossen. Au- 
Berdem ist der Peeker wohl die einzige 
Zeitschrift, in der „alle“ Programme im 
modernen Lichtsatz gesetzt werden, so 
daß ein Listing, das bei manch einer Zeit- 
schrift eine ganze Druckseite einnimmt, 
beim Peeker auf einer halben Seite Platz 
findet. 

Unbefriedigend ist nach wie vor die Termi- 
nologie und die Fehlerlosigkeit der Pro- 
gramme: 

Der Peeker kann sich nicht zum Vorreiter 
einer Sprachbereinigung machen. Heißt 
es z.B. „der oder die oder das File/Ar- 
ray?“ Jeder bastelt sich offenbar sein ei- 
genes EDV-Chinesisch zusammen. Ent- 
scheiden Sie sich spaßeshalber selbst 


einmal für das „richtige“ Genus und 
schlagen Sie dann beispielsweise bei Ni- 
klaus Wirths „Algorithmen und 


Datenstrukturen“, S. 50 und 60 nach. Sie 
werden überrascht sein! 

Tippfehler in den Listings und Bugs in den 
Programmen werden sich wohl nie völlig 
ausmerzen lassen. Schon allein aus zeitli- 


editorial 


chen Gründen sehen wir uns leider außer- 
stande, die Aufsätze und Programme der- 
art akribisch zu durchleuchten, daß kein 
Schnitzer mehr stehenbleibt. Perfektionis- 
mus bleibt somit ein unerfüllbarer Traum. 


Kurzumfrage 

Die letztjährige September-Ausgabe ent- 
hielt eine Kurzumfrage in Form einer Post- 
Karte (s. a. Trennkarton in „dieser“ Ausga- 
be, S. 45), die über 4500 Leser ausfüllten. 
Damals ergaben sich bezüglich der Gerä- 
teverteilung folgende Prozentsätze: Ilc 
(5,1 %), lle (29,5 %), II+ (30,1 %), Kom- 
patible (32,3 %), Macintosh (1,3 %); 
Apple Ill, Lisa u. a. Geräte zusammen ca. 
1 %. Inzwischen hat sich die Apple-Szene 
völlig verändert: Der Apple Ill und die Lisa 
wurden aus der Produktion genommen. 
Der Macintosh hat sich bislang nicht 
durchgesetzt mit der Folge, daß ein Teil 
der ehemaligen Apple-Il-Besitzer, die ein 
Gerät der höheren Leistungs- und Preis- 
Kategorie erwerben wollen, abzuwandern 
beginnen, weil das Nachfolgemodell zu 
dem Apple Il immer noch auf sich warten 
läßt. 

Auch dieses September-Heft enthält wie- 
der eine Umfrage, die u. a. die Rubrik „Ich 
besitze zusätzlich folgenden Nicht-Apple- 
Computer“ aufweist. Sollte hier ein be- 
stimmtes Fremdgerät sehr häufig genannt 
werden, so werden wir zu überlegen ha- 
ben, ob wir dieses Gerät in Zukunft ange- 
messen berücksichtigen (z.B. 4 Seiten 
pro Heft). Wir bitten Sie, liebe Peeker- 
Leser, uns die Umfrage-Karte zuzusen- 
den, denn damit haben Sie selbst Einfluß 
auf die Themenverteilung. 
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Ulrich Stiehl 
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Software und Zitatrecht 








von Ulrich Stiehi 





Heil Dir Autor, die Geistesräuber grüßen Dich. 
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1. Kopieren, Zitieren und 
Bearbeiten 


Im Peeker, Heft 4/1985 hatten wir uns 
bereits mit dem Thema „Software und Ko- 
pierrecht“ auseinandergesetzt. Der nach- 
folgende Beitrag knüpft daran an und be- 
handelt den erheblich diffizileren Themen- 
komplex des Zitatrechts unter Einbezie- 
hung der Bereiche der Bearbeitung und 
freien Benutzung. 


Kopieren heißt im Juristendeutsch „Ver- 
vielfältigen“ (UrhG 853; UrhG = Urheber- 
rechtsgesetz). In der EDV bedeutet dies 
ein Überspielen, d.h. ein Verdoppeln oder 
Eins-zu-eins-Reproduzieren eines Com- 
puterwerkes (= Programms). Der Begriff 
der Eins-zu-eins-Reproduktion impliziert, 
daß das Programm erstens vollständig und 
zweitens unverändert kopiert wird. Eine 
(unvollständige) Teilkopie ist möglich, 
kommt jedoch in der Praxis kaum vor. 
Dagegen ist es denkbar, daß nach der 
Herstellung einer Kopie an ihr Änderun- 
gen („Patches“) vorgenommen werden. 
Sehen wir von diesen Sonderfällen ab, so 
können wir festhalten, daß man unter Ko- 
pieren üblicherweise das vollständige und 
unveränderte Vervielfältigen eines Origi- 
nalwerkstücks versteht. 


Zitieren bedeutet demgegenüber in der 
EDV die Übernahme eines Fremdpro- 
gramms in ein eigenes Programm. Der 
Regelfall ist das sog. Kleinzitat, d.h. die 
Übernahme eines Teils eines Fremdpro- 
gramms in ein eigenes Programm. Nur 
selten stößt man auf ein sog. Großzitat, 
d.h. die Übernahme eines vollständigen 
Programms in ein eigenes. Während ein 
kopiertes Originalwerk nach erfolgter Ko- 
pie ein Werkstück für sich darstellt, bewirkt 
das Zitat stets eine Einverleibung einer 
„Stelle“ aus einem fremden Werk in ein 
eigenes Werk. Normalerweise wird eine 
Stelle unverändert unter Nennung des 
Werktitels und Urhebers wiedergegeben, 
um den urheberrechtlichen Grundregeln 
über das Änderungsverbot (UrhG 853) 
und die Quellenangabe (UrhG 863) Rech- 
nung zu tragen. Oft findet man jedoch 
auch veränderte Stellen und/oder unge- 
nügende oder fehlende Quellenangaben. 
Ein literarisches Paradebeispiel ist 
Goethes Werk, dessen zahlreiche obszö- 
ne Passagen entweder bereinigt („pur- 
giert“) oder als „—- — —“ zitiert werden (s. 
z.B. Faust, Walpurgisnacht usw.). Wenn 
man die Quellenangabe „zu erwähnen 
vergißt“, liegt meist ein Plagiat vor (plagia- 
re = fremdes geistiges Eigentum rauben; 
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danach plagiieren, Plagiat; plagiator und 
plagiarius = Räuber fremden geistigen Ei- 
gentums; danach Plagiator). 


Neben dem Zitat gibt es noch die Möglich- 
keit der mehr oder weniger engen Aus- 
richtung an einem fremden Werk. Hier 
spricht man dann von der zustimmungs- 
pflichtigen Bearbeitung, die sich an eine 
Fremdvorlage eng anlehnt (UrhG 823), so- 
wie von der nicht-zustimmungspflichtigen 
freien Benutzung, die die Fremdvorlage 
nur als Anregung nimmt (UrhG 824). 

Wenn man die diversen Spielarten von der 
freien Benutzung über die Bearbeitung 
und die modifizierten Zitate mit und ohne 
Quellenangabe bis zu den wörtlichen, ex- 
akten Zitaten Revue passieren läßt, wird 
offenbar, daß das Zitatrecht erheblich 
komplizierter und undurchsichtiger als das 
Kopierrecht ist, denn im Kopierrecht 
braucht man zur Ermittlung eines (Straf-) 
tatbestandes in der Regel nur Gleiches mit 
Gleichem zu vergleichen, während im Zi- 
tatrecht oft Gleiches mit Ähnlichem oder 
Ungleichem verglichen werden muß. 


2. Das begriffliche Gerippe 


Nachfolgend zitieren wir aus dem Urheber- 
rechtsgesetz die relevanten Paragraphen: 
UrhG 813 Anerkennung der Urheber- 
schaft: Der Urheber hat das Recht auf 
Anerkennung seiner Urheberschaft am 
Werk... 

UrhG 823 Bearbeitungen und Umgestal- 
tungen: Bearbeitungen oder andere Um- 
gestaltungen des Werkes dürfen nur mit 
Einwilligung des Urhebers des bearbeite- 
ten oder umgestalteten Werkes veröffent- 
licht oder verwertet werden... 

UrhG 824 Freie Benutzung: Ein selbstän- 
diges Werk, das in freier Benutzung des 
Werkes eines anderen geschaffen worden 
ist, darf ohne Zustimmung des Urhebers 
des benutzten Werkes veröffentlicht und 
verwertet werden.... 

UrhG 851 Zitate: Zulässig ist die Verviel- 
fältigung, Verbreitung und öffentliche Wie- 
dergabe, wenn in einem durch den Zweck 
gebotenen Umfang 


1. einzelne Werke nach dem Erscheinen in 
ein selbständiges wissenschaftliches 
Werk zur Erläuterung des Inhalts aufge- 
nommen werden, 

2. Stellen eines Werkes nach der Veröf- 
fentliichung in einem selbständigen 
Sprachwerk angeführt werden... 

UrhG 862 Änderungsverbot: (1) Soweit 
nach den Bestimmungen dieses Ab- 





RECHT .. 


schnitts die Benutzung eines Werkes zu- 
lässig ist, dürfen Änderungen an dem 
Werk nicht vorgenommen werden... 

UrhG 863 Quellenangabe: (1) Wenn ein 
Werk oder ein Teil eines Werkes in den 
Fällen des ...851... vervielfältigt wird, ist 
stets die Quelle deutlich anzugeben... 
UrhG 8106 Unerlaubte Verwertung ur- 
heberrechtlich geschützter Werke: Wer in 
anderen als den gesetzlich zugelassenen 
Fällen vorsätzlich ohne Einwilligung des 
Berechtigten ein Werk oder eine Bearbei- 
tung oder Umgestaltung eines Werkes 
vervielfältigt, verbreitet oder öffentlich wie- 
dergibt, wird mit Geldstrafe oder mit Ge- 
fangnis bis zu einem Jahr bestraft. 


Die in den Paragraphen erwähnten Begrif- 
fe lassen sich folgendermaßen definieren: 
Eine Bearbeitung ist ein selbständiges 
Werk, das sich an ein anderes Werk stark 
anlehnt. Typische Beispiele für Bearbei- 
tungen sind Übersetzungen (von Büchern 
in andere Sprachen), Vertonungen, Dra- 
matisierungen und Verfilmungen (im UrhG 
gesondert geregelt). Die Bearbeitung setzt 
die vorherige Zustimmung = Einwilligung 
des Urhebers voraus. 

Bearbeitungen von Computerwerken 
könnten Übersetzungen sein, doch ist mir 
hierzu keine Rechtsprechung bekannt. Bei 
natürlichen Sprachen gibt es bekanntlich 
unkomplizierte Übersetzungen (z.B. aus 
dem Englischen ins Deutsche) und kom- 
plizierte Übersetzungen (z.B. aus dem 
Sanskrit ins Chinesische). Ähnlich gibt es 
bei den Computersprachen leichte (z.B. 
von BASIC in Pascal oder vom Quellcode 
in den Objektcode) und schwere Überset- 
zungen (z.B. von BASIC in Assembler 
oder vom Objektcode in den Quellcode). 
Der Schwierigkeitsgrad kann also nicht als 
Richtschnur dienen. Dieser ganze Kom- 
plex ist offenbar noch nicht in der Rechtsli- 
teratur durchdiskutiert worden. 


Eine freie Benutzung ist ein selbständi- 
ges Werk, das sich an ein anderes Werk 
schwach anlehnt. Typische literarische 
Beispiele sind die Travestie und Parodie, 
die beide Satiren auf ein Originalwerk dar- 
stellen. Bei der freien Benutzung ist die 
Zustimmung des Urhebers des Original- 
werkes nicht erforderlich. 

In der EDV würde eine freie Benutzung 
dann vorliegen, wenn man z.B. eine in 
BASIC geschriebene Sortierroutine zum 
Anlaß nimmt, um eine eigene Routine et- 
wa in Pascal oder Assembler zu erstellen. 


Ein Zitat ist die Übernahme eines kom- 
pletten fremden Werkes oder eines Teils 





eines fremden Werkes in ein eigenes 
Werk. Das Zitat muß exakt, d.h. bei Schrift- 
werken wörtlich sein (Änderungsverbot). 
Außerdem muß stets die Quelle (Urheber- 
und Werkname) angegeben werden. Wie 
bei der freien Benutzung ist auch hier die 
Zustimmung des Urhebers des Original- 
werkes nicht erforderlich. 


Das Großzitat eines kompletten vollständi- 
gen Werkes setzt die Quellenangabe mit 
Verlagsangabe sowie das Erscheinen des 
fremden Werkes voraus. Ferner sind 
Großzitate nur in wissenschaftlichen 
(Sprach)werken zulässig, zu denen auch 
die Computerwerke gehören. Bild- und 
Musikzitate rechnet man in der Regel zu 
den Großzitaten (von Bedeutung bei Com- 
puterspielen). 


Ein Großzitat läge z.B. dann vor, wenn 
man in einem Buch über ein Betriebssy- 
stem (etwa ProDOS) neben einer allge- 
meinen Beschreibung eine Kommentie- 
rung des ggf. zuvor disassemblierten 
Quellcodes vornähme (s. z.B. „ProDOS- 
Analyse“ von A. Schäpers). 


Das Kleinzitat eines Teils eines fremden 
Werkes (= einer Stelle) setzt die Veröf- 
fentliichung des fremden Werkes voraus. 
Kleinzitate sind auch in nichtwissenschaft- 
lichen Sprachwerken möglich. 
Beispielsweise enthält das Kopierpro- 
gramm in meinem ProDOS-Buch, Band 2, 
die Formatierungsroutine aus dem Pro- 
DOS-FILER als Kleinzitat. 


Das Plagiat ist die bewußte Aneignung 
fremden Geistesgutes, d.h. praktisch ein 
verändertes oder unverändertes Zitat, bei 
dem man die Quellenangabe „zufällig ver- 
gessen hat“. Dies ist stets unzulässig. In 
der Regel zulässige, wenngleich oft ver- 
pönte Spezialformen des Plagiats sind 

1. das Zitat aus einem gemeinfreien (= 
nicht mehr geschützten) Werk ohne Quel- 
lenangabe; 

2. das Zitat aus einem eigenen Werk (= 
Selbstplagiat); 

3. das unbewußte Zitat infolge eines „ei- 
detischen Gedächtnisses“ ; 

4. die unbewußte Doppel- oder Parallel- 
schöpfung. 


Bei Büchern, Zeitschriften und Quellcodes 
kann man problemlos die Quellenangaben 
deutlich vermerken. Beim Objektcode 
kann die Quellenangabe entfallen, wenn 
der Quellcode mitgeliefert wird. Andern- 
falls muß man ihn im Objektcode selbst 
unterbringen. Bis zum heutigen Tage habe 
ich allerdings noch niemals eine Quellen- 
angabe in einem Objektcode gesehen, 
was wohl nicht gerade auf ein ausgepräg- 


tes Rechtsbewußtsein bei Programmie- 
rern schließen läßt. 


3. Das „geplagte“ Plagiat 


Das Kernproblem des Zitatrechts sind 
nicht die korrekten Kleinzitate, sondern die 
Zitate ohne Quellenangaben sowie die 
mehr oder weniger stark angelehnten Be- 
arbeitungen von bereits vorliegenden 
Werken anderer Autoren. Nehmen wir ein- 
mal an, daß wir in einer Bücherstube ein 
Lyrikbändchen aufschlagen und dabei zu- 
fällig auf ein Gedicht stoßen, das so be- 
ginnt: 


1 Über allen Bergen 
2 ist Ruh, 

3 in allen Särgen 

4 hörest du 

5 kaum einen Laut... 


Nach dem ersten Durchlesen beginnt man 
zu stutzen, beim zweiten Durchlesen 
kommt dann das Deja-vu-Erlebnis: Irgend- 
wo habe ich dies doch schon einmal gese- 
hen! Jetzt kommt das Aha-Erlebnis und 
man merkt, daß es sich hierbei um eine 
Verballhornung eines Goethe-Gedichtes 
handelt, das im Original so beginnt: 


1 Über allen Gipfeln 

2 ist Ruh, 

3 in allen Wipfeln 

4 spürest du 

5 kaum einen Hauch... 


Öffenkundig handelt es sich weder um 
ein korrektes, wörtliches Zitat noch um ein 
für den Schulgebrauch („ad usum Delphi- 
ni“) bereinigtes Gedicht. Somit bleibt nur 
noch entweder die einwilligungspflichtige 
Bearbeitung oder die zustimmungsfreie 
Benutzung. Die Zeile 2 („ist Ruh“) ist bei 
beiden Gedichten identisch, doch sind 
weder „ist“ noch „Ruh“ für sich noch 
deren Kombination schutzfähig. Alle ande- 
ren Zeilen unterscheiden sich in minde- 
stens einem Wort, und ein gleicher End- 
reim findet sich nur in den Zeilen 2 und 4. 
Auch der Umstand, daß erstens die Anzahl 
der Wörter sowie sogar die Anzahl der 
Silben und zweitens das Versmaß iden- 
tisch sind, begründet noch keinen Urhe- 
berschutz, denn ein Urheber kann weder 
Silben noch Wörter noch Reime noch 
Versform noch Satzbau exklusiv bean- 
spruchen. Dies gilt sowohl für die gehobe- 
ne Dichtung wie für die Alltagsprosa. Dem 
Autor des Gedichtes könnte man juristisch 
nichts am Zeug flicken. Trotzdem be- 
schleicht uns hier ein unwohles Gefühl, 


denn das gesunde Rechtsempfinden wür- 
de hier ein Plagiat vermuten. Daß dieses 
Empfinden überhaupt aufkommt, ist indes- 
sen nur darauf zurückzuführen, daß 
Goethes Gedicht allgemein bekannt ist. 


Betrachten wir deshalb nach diesem fikti- 
ven Beispiel einen „echten“ Fall. Ange- 
nommen wir würden in derselben Bücher- 
stube nunmehr das Werk „H.Schieren- 
beck: Grundzüge der Betriebswirtschafts- 
lehre, 5. Aufl. 1980“ auf der Seite 207 
aufschlagen und folgendes lesen: 


Bei Schierenbeck 

(1) Deren Gegenstand bilden vor allem die 
zukünftige Entwicklung von Markt- und 
Absatzpotential, Markt- und Absatzvolu- 
men sowie des Marktanteils einer Unter- 
nehmung. 

(2) Das Marktpotential umschreibt die Auf- 
nahmefähigkeit eines Marktes (Gesamt- 
heit möglicher Absatzmengen) für ein be- 
stimmtes Produkt. 

(3) Das Absatzpotential ist der maximal 
mögliche Anteil am Marktpotential, den die 
Unternehmung auf sich vereinigen zu kön- 
nen glaubt... 

(4) Infolge des nicht ausgeschöpften 
Marktpotentials ist es für die einzelne Un- 
ternehmung möglich, hohe Steigerungsra- 
ten des Absatzvolumens auch dann zu 
erzielen, wenn sich die Marktanteile nur 
unwesentlich verändern. 


Wohl kaum einer würde hier ein ungutes 
Gefühl haben, weil sich kein De&jä-vu-Er- 
lebnis einstellt. Deshalb helfe ich Ihnen auf 
die Sprünge. Vergleichen Sie nunmehr 
einmal die obigen Sätze mit den nachfol- 
genden, die ich der Seite 186 von „H.Mef- 
fert: Marketing. Einführung in die Absatz- 
politik, 2. Aufl. 1977“ entnommen habe. 


Bei Meffert 

(1) Gegenstand von Absatzprognosen 
sind vor allem der zukünftige Zustand bzw. 
die Entwicklung von Markt- und Absatz- 
potential, Markt- und Absatzvolumen so- 
wie des Marktanteils einer Unternehmung 
(Fuchs 1963, Rogge 1972). 

(2) Marktpotential ist die Gesamtheit mög- 
licher Absatzmengen eines Marktes für ein 
bestimmtes Produkt (Aufnahmefähigkeit 
eines Marktes). 

(3) Absatzpotential ist der Anteil am Markt- 
potential, den das Unternehmen maximal 
erreichen zu können glaubt (Zielset- 
zung)... 

(4) Infolge des nicht ausgeschöpften, 
rasch wachsenden Marktpotentials sind für 
die einzelne Unternehmung große Zu- 
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Das MacTablett von 
pen: 


Georg-Brauchle-Ring 68 

D-8000 München 50 
LIMITED Telefon 089/1415077 
Niederlassung Deutschland Telex 5214793 





7” Monitorchassis. Auflösung 18 MHz. Grüner Schirm. Videoeingang. 

Lieferung kpl. steckfertig. Stromversorgung 12V. BN 94011 DM 58,50 
Netztrafo 2 x12 V/ 2x2 Amp. | „BN 94012 DM 7,80 
Monitorgehäuse a nn BN 94015 DM 19,50 


' Monitor Grün 9”. Industriegehäuse. High- Be kon Erde 20 MHz, Schirm grün, entspiegelt. 
| Input- Signal 0,5-2,0 V. Stromversorgung 220 V/50 Hz. BN 65032 Monitor VM-91/9 DM 199,90 


'Franklin-Schaltnetzteil. Im geschlossenen Metallgehäuse mit eingebautem Lüfter. 
Ein/Aussch. u. Steckdose. +5 V/3 Amp. und +12 V/0,9 Amp. Applefähig. 
FL Maße 128 x 90 x 225 mm. | BN 94.014 DM 69,50 


Apple Il und Ile. 

Interface Card für 2 Disc Drive. 

Franklin Qualität. 

BN 94014 DM 58,90 


Trickball. Handballen-Joystick 
für Commodore 20/64, 
Atari u.v.a. 


| — Original Sinclair 16 K RAM. 

BN 94031 Paarpreis DM 24,50 ee 

BN 94032 ab 3 Paar DM 19.90 f auch für andere Computer. Bestückung: 
; 4 8x4116 N-4/4x 74LS 157 N/1x74LS 32/ 

1x 74LS00/1x 74 LS 393. 

BN 94033 DM 34,90 

BN 94.034 ab 3 Stück DM 29,90 
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wachsraten im Umsatz auch dann erreich- 
bar, wenn sich die Marktanteile nur unwe- 
sentlich verändern. 


Bei wohlwollender Beurteilung der Sachla- 
ge würde man sagen, daß sich das Schie- 
renbeck-Buch an das Meffert-Buch „ge- 
ringfügig angelehnt“ habe. Bei nicht-wohl- 
wollender Beurteilung würde man sagen, 
daß Schierenbeck „schamlos abgekup- 
fert“ hat. Schierenbeck hätte eine ganze 
Seite aus dem Meffert-Buch wörtlich mit 
vollständiger Quellenangabe zitieren kön- 
nen. Dann wäre die Rechtslage eindeutig 
gewesen. So aber wurden die Sätze aus 
dem Meffert-Buch lediglich geringfügig 
umformuliert (und an einer anderen Stelle 
bei einer exakt reproduzierten Schema- 
zeichnung der Ausdruck „nach Meffert“ 
hinzugefügt). Liegt damit bereits eine freie 
Benutzung vor? Wohl kaum, doch läßt sich 
nicht verleugnen, daß das hier praktizierte 
Verfahren in vielen wissenschaftlichen Bü- 
chern gang und gäbe ist. Neue Fachbü- 
cher entstehen heutzutage häufig dadurch, 
daß man Passagen aus früheren Büchern 
extrahiert, kondensiert und transformiert. 
Ironischerweise hat gerade die moderne 
Linguistik gezeigt, wie man hier rein sche- 
matisch vorgehen kann. Chomsky und die 
anderen Verfechter der generativen Trans- 
formationsgrammatik hätten hier frohlockt! 
Nehmen wir an, ein Ausgangsgedanke 
lautete: 


„Wir schreiben jetzt diesen Satz. 

Daraus lassen sich dann auf dem Wege 
der Transformation u.a. die folgenden Sät- 
ze bilden: 


1. Jetzt schreiben wir diesen Satz. 

2. Dieser Satz wird jetzt von uns ge- 
schrieben. 

3. Jetzt wird dieser Satz von uns ge- 
schrieben. 

4. Von uns wird jetzt dieser Satz ge- 
schrieben. 

Wenn man zusätzlich Synomyme und syn- 
taktische Konstruktionen mit anderen 
Wörtern zuläßt, können ferner gebildet 
werden: 

5. Nunmehr bringen wir diese Aussage zu 
Papier. 

6. Der Satz muß nun von uns niederge- 
schrieben werden. 

USW. 


Derselbe Gedanke läßt sich folglich in viel- 
fältige mehr oder weniger gelenke Sätze 
kleiden; neuer wird er dadurch jedoch 
nicht. 


Wenn derartige syntaktische Transforma- 
tionen und Synonym-Substitutionen be- 
reits ein neues Sprachwerk begründen, 
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dann haben wir es bei Computerwerken 
noch viel einfacher. So läßt sich etwa der 
„Computergedanke“ 

LDA $2000 STA $4000 

folgendermaßen transformieren: 

1. LDX $2000 STX $4000 

2. LDY $2000 STY $4000 

3. LDX $2000 TXA STA $4000 

Man brauchte dann also bei einem frem- 
den Computerwerk lediglich Registerver- 
tauschungen und Befehlsumstellungen 
und anschließend eine Neuassemblierung 
mit geänderter Ursprungsadresse vorzu- 
nehmen, so daß beispielsweise 

LDA $2000 STA $4000 

in 

LDX $2222 STX $4222 

transformiert wird mit der Folge, daß 
(scheinbar) ein neues selbständiges Werk 
entsteht. 


Bei den obigen Zitaten aus den Büchern 
von Schierenbeck und Meffert ist zu unter- 
scheiden zwischen den sog. definitori- 
schen oder analytischen Aussagen (2 und 
3) und den nicht-definitorischen oder syn- 
thetischen Aussagen (1 und 4). Bei analy- 
tischen Aussagen ist der Formulierungs- 
spielraum begrenzt, weil der korrekt defi- 
nierte Begriff die Verwendung bestimmter 
Terminini erzwingt. Bei synthetischen 
Aussagen ist der Formulierungsspielraum 
jedoch sehr groß. Deshalb springt bei- 
spielsweise der Satz (4) sofort als „ange- 
lehnt“ ins Auge. 

Im Gegensatz zu natürlichen Sprachwer- 
ken ist bei Computerwerken der Spiel- 
raum für Variationen teils enger und teils 
weiter gezogen: weiter insofern, als künst- 
liche Umformungen in der oben skizzier- 
ten Art leicht vorgenommen werden kön- 
nen, enger insofern, als Algorithmen eine 
relativ rigide Programmierung erfordern. 


4. Das Kaspar-Hauser-Syndrom 


Goethe gilt bekanntermaßen als unser 
größter Dichter, der seiner Nachwelt ein 
beeindruckendes Gesamtwerk hinterlas- 
sen hat. Demgegenüber ist weniger be- 
kannt, daß er eine riesige Gelehrtenbiblio- 
thek mit angeblich über 5000 Bänden be- 
saß. Sie werden sich fragen, was das eine 
mit dem anderen zu tun hat. Hier kommen 
wir jedoch zur Begründung zu dem oben 
zitierten Satz (4): Hätte Schierenbeck nie- 
mals das Meffert-Buch gelesen, dann wä- 
re er wohl auch niemals zu dem „ange- 
lehnten“ Satz gekommen. Zu Anfang des 
letzten Jahrhunderts, also noch zu Lebzei- 
ten Goethes, vegetierte ein ausgesetztes 


Findelkind namens Kaspar Hauser sprich- 
wörtlich in einem Kellerloch dahin, bis es 
eines Tages entdeckt wurde. Es wurde 
zwar mehr schlecht als recht ernährt, hatte 
jedoch keinen nennenswerten (Sprach-) 
kontakt zu seiner Umwelt, geschweige 
denn zu seinen Eltern aus den höchsten 
Kreisen des Adels, die sich auf diese Wei- 
se eines Erben entledigen wollten. Es ist 
einleuchtend, daß Hauser im Gegensatz 
zu Goethe niemals ein Werk geschrieben 
hat. Nun wäre es jedoch falsch, annehmen 
zu wollen, daß Goethe seine Werke ge- 
schrieben hat, weil er 5000 Bücher besaß. 
Richtig ist vielmehr, daß Goethe niemals 
ein Buch hätte schreiben können, wenn er 
niemals ein Buch gelesen hätte. Die mehr 
oder weniger umfangreiche Verarbeitung 
früheren Geistesgutes ist damit eine not- 
wendige, aber keine hinreichende Bedin- 
gung für die Schaffung eigener Werke. 
(Für Logiker: die notwendige Bedingung 
ist eine Replikation, die hinreichende eine 
Implikation.) Jeder, der ein Werk schaffen 
will, sei er nun Dichter oder Progammierer, 
muß also notwendigerweise in bestimm- 
tem Umfang auf das Schaffen anderer Ur- 
heber zurückgreifen. Rechtlich relevant ist 
jedoch allein die hinreichende Bedingung. 
Wenn es einem Urheber nicht gelingt, die 
letzte Sprosse der Schöpfungshöhe zu er- 
klimmen, so sollte er sich seine Unzuläng- 
lichkeit eingestehen und zum wörtlichen 
Kleinzitat greifen, das im Rahmen eines 
wissenschaftlichen Sprachwerkes, wozu 
auch die Computerwerke gehören, stets 
erlaubt ist. Wie der obige Satz (4) zeigt, ist 
es mit der Substitution von „groß“ durch 
„hoch“ und dem Einfügen von Flickwör- 
tern wie „rasch“ usw. nicht getan. Zur 
„persönlichen geistigen Schöpfung“ 
(UrhG 82) gehört leider etwas mehr. 


5. Folgerungen für Computerwerke 


Das Zitatrecht ist urheberrechtlich für 
Computerwerke deshalb relevant, weil 
Computerprogramme den (wissenschaftli- 
chen) Schriftwerken oder allgemeiner for- 
muliert den Sprachwerken zugeordnet 
werden. Die Zitatparagraphen kommen in- 
dessen erst dann zum Tragen, wenn eige- 
ne Programme mit fremden Programmtei- 
len erscheinen, also vervielfältigt und ver- 
breitet werden (verkaufen, verschenken, 
tauschen). Solange man lediglich in sei- 
nem stillen Kämmerlein fremde Program- 
me in eigene einarbeitet, kann das Urhe- 
berrecht noch nicht verletzt werden. 

Selbst wenn man es mit dem Zitieren in 
wissenschaftlichen Werken oftmals nicht 
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allzu genau nimmt, wie die Gegenüber- 
stellung aus den Büchern von Schieren- 
beck und Meffert gezeigt hat, empfehle ich 
dem Peeker-Leser, im Zweifelsfalle wört- 
lich mit korrekter Quellenangabe zu zitie- 
ren, zumal das Kleinzitat vergütungsfrei 
ist. Auch wenn augenscheinlich künstliche 
Transformationen eines fremden Werkes 
rein rechtlich ausreichen, um ein neues 
Werk zu schaffen, ist dieses Verfahren 
ethisch mehr als fragwürdig. 


Vorsicht ist stets bei Großzitaten geboten, 
weil hier die Grenzen enger gezogen sind. 
So ist es beispielsweise in einem Buch 
über ProDOS, das dieses Betriebssystem 
bis zum letzten Byte kommentiert, ohne 
weiteres zulässig, ProDOS in Form eines 
Großzitats in den Text zu integrieren. Um- 
gekehrt wäre es nicht zulässig, auf eine 
Diskette mit einem beliebigen Apple-Pro- 
gramm ProDOS oder DOS 3.3 mit aufzu- 
nehmen, weil hierfür zitatrechtlich keine 


4 RECHT a4 


Veranlassung besteht. 

(Nachtrag: Die Schlagzeile „Ave auctor, 
plagiarii te salutant“ = „Heil Dir Autor, die 
Plagiatoren grüßen Dich“ ist in Analogie 
zu dem Gladiatorenspruch „Ave impera- 
tor, morituri te salutant“ = „Heil Dir Impe- 
rator, die Todgeweihten grüßen Dich“ ent- 
standen.) 


[ 





Urheberrechtsnovelle 


Am 27.06.1985 ist das „Gesetz zur Ände- 
rung von Vorschriften auf dem Gebiet des 
Urheberrechts” im „Bundesgesetzblatt 
Nr. 33 veröffentlicht worden, das nunmehr 
erstmals konkret von „Programmen für die 
Datenverarbeitung“ spricht, die den 
Sprachwerken zugeordnet werden. Nach- 
folgend geben wir einen Auszug aus den 
geänderten Paragraphen des UrhG, so- 
weit sie für EDV-Programme relevant sind. 
Man beachte, daß die Zitatrechtparagra- 
phen nicht geändert wurden. 


82 Abs. 1 Nr. 1: (Zu den geschützten 
Werken ... gehören insbesondere:) 

1. Sprachwerke, wie Schriftwerke und Re- 
den, sowie Programme für die Datenverar- 
beitung. 


853 Vervielfältigungen zum privaten und 
sonstigen eigenen Gebrauch 

(1) Zulässig ist, einzelne Vervielfältigungs- 
stücke eines Werkes zum privaten Ge- 
brauch herzustellen. Der zur Vervielfälti- 
gung Befugte darf die Vervielfältigungs- 
stücke auch durch einen anderen herstel- 
len lassen; doch gilt dies für die Übertra- 
gung von Werken auf Bild- oder Tonträger 
.. nur, wenn es unentgeltlich geschieht. 
(2) Zulässig ist, einzelne Vervielfältigungs- 
stücke eines Werkes herzustellen oder 
herstellen zu lassen 

1. zum eigenen wissenschaftlichen Ge- 
brauch, wenn und soweit die Vervielfälti- 
gung zu diesem Zweck geboten ist, 

2. zur Aufnahme in ein eigenes Archiv, 
wenn und soweit die Vervielfältigung zu 
diesem Zweck geboten ist und als Vorlage 
für die Vervielfältigung ein eigenes Werk- 
stück benutzt wird, 
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(4) Die Vervielfältigung 


b) eines Buches oder einer Zeitschrift, 
wenn es sich um eine im wesentlichen 
vollständige Vervielfältigung handelt, 

ist, soweit sie nicht durch Abschreiben 
vorgenommen wird, stets nur mit Einwilli- 
gung des Berechtigten zulässig oder unter 
den Voraussetzungen des Absatzes 2 Nr. 
2 oder zum eigenen Gebrauch, wenn es 
sich um ein seit mindestens zwei Jahren 
vergriffenes Werk handelt. Ebenso ist die 
Vervielfältigung eines Programms für die 
Datenverarbeitung ($2 Abs. 1 Nr. 1) oder 
wesentlicher Teile davon stets nur mit Ein- 
willigung des Berechtigten zulässig. 

(5) Die Vervielfältigungsstücke dürfen we- 
der verbreitet noch zu Öffentlichen Wie- 
dergaben benutzt werden... 


8108a: Gewerbsmäßige unerlaubte Ver- 
wertung 

(1) Handelt der Täter in den Fällen des 
Vervielfältigens oder des Verbreitens im 
Sinne des 8106 oder des 8108 gewerbs- 
mäßig, so ist die Strafe Freiheitsstrafe bis 
zu fünf Jahren oder Geldstrafe. 

(2) Der Versuch ist strafbar. 


Rechtsprechung zum Software- 
Urheberrecht 


Unter diesem Titel erscheint im nächsten 
Peeker ein Beitrag von RA D. Naber, der 
die Gerichtsurteile der letzten Zeit resü- 
miert. 


Lotus und Urheberrecht 


In der amerikanischen Zeitschrift „Byte“ 
wurde von mehreren Prozessen der Firma 
Lotus gegen Käufer von „1-2-3“ usw. be- 
richtet. Wegen der Herstellung illegaler 
Kopien sollen angeblich Konventionalstra- 
fen in Millionenhöhe gezahlt worden sein. 
Da die Firma Lotus jetzt auch eine Nieder- 
lassung in Deutschland hat, empfehle ich 
deshalb allen Lesern, den Kaufvertrag 
durch den Passus zu erweitern, daß nur 
das neue deutsche Urheberrechtsgesetz 
gilt und davon abweichende Vereinbarun- 
gen null und nichtig sind. Die Empfehlung 
gilt im übrigen nicht nur in bezug auf Lo- 
tus, sondern im Hinblick auf alle Software- 
Verträge. Es ist Ihr gutes Recht, wenn Sie 
sich das ausbedingen, was im Gesetz 
steht. us 
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Ein neues FID 


fur DOS 3.3 


Mit Auto-FID für RAM-Disk-Besitzer 


von Harald Grumser 


Ein im Umgang mit Disketten immer wie- 
der auftretendes Problem ist die Erstellung 
von Dateikopien, sei es, um die Folgen 
eines „Disketten-Crashs“ durch sog. 
Backups zu mindern oder um alle wichti- 
gen Arbeitsdateien auf eine RAM-Disk zu 
übertragen. 

Eine Automatisierung dieses Vorgangs 
war bisher nur unter Zuhilfenahme des 
FID-Programms (File Developer) möglich, 
wobei der recht umständliche Weg über 
eine EXEC-Datei gewählt werden mußte. 
Das hier vorgestellte Programm zeigt, wie 
man aus einem Applesoft-Programm her- 
aus Dateien aller Art (A-, I-, B- und T-Files) 
kopieren kann, ohne daß dabei Probleme 
wie Garbage-Collection oder „EXTRA 
IGNORED“-Meldungen speziell bei der 
Übertragung von Textdateien auftreten. Es 
bietet sich somit auch die Möglichkeit, die 
RAM-Disk durch ein geeignetes HELLO- 
Programm als Arbeitsdiskette vorzuberei- 
ten und nach Beendigung einer Sitzung 
alle wichtigen Daten per Programm auf 
eine physische Diskette zu retten. 


1. Anforderungen 


Bei der Erstellung dieses Programms wur- 
den folgende Ziele ins Auge gefaßt: 
Kompatibilität — Da mittlerweile etliche 
DOS-Varianten existieren, die z.T. erhebli- 
che Verbesserungen gegenüber dem 
Standard-DOS-3.3 zeigen, wurde auf die 
Benutzung aller nicht über die Page 3 zu- 
gänglichen DOS-Routinen verzichtet. So- 
mit läuft dieses Programm auch unter Di- 
vers-DOS und gemovten DOS-Ver- 
sionen. 

Flexibilität — Es versteht sich von selbst, 
daß sowohl der Betrieb mit einem Lauf- 
werk als auch die Ansteuerung von Lauf- 
werken in verschiedenen Slots unterstützt 
wird. Die Möglichkeit, unterschiedliche 
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Quell- und Zielnamen anzugeben, verein- 
facht die Anwendung in vielen Fällen, da 
dadurch auch Dateien auf einer Diskette 
dupliziert werden können. Der Umfang 
des Datenpuffers kann vom Benutzer ge- 
wählt werden. 

Einfache Handhabung - Der Aufruf des 
Kopierprogramms erfolgt mit Hilfe des 
Ampersand-Vektors. Die zuletzt angege- 
benen Laufwerksparameter bleiben als Er- 
satzwerte erhalten, wodurch Slot und 
Drive nicht immer wieder neu eingegeben 
werden müssen. 

Neutralität — Da diese Utility in Anwen- 
derprogramme eingebaut werden kann, 
besteht die Möglichkeit, alle Meldungen 
(Fehleranzeige, Aufforderung zum Disket- 
tenwechsel usw.) abzufangen und durch 
eigene Menütexte oder Bildschirmmasken 
zu ersetzen. Dies wurde durch die Über- 
gabe aller Meldungen als Applesoft-Fehler 
realisiert, die durch „ONERR GOTO“ be- 
arbeitet werden können. Die Programmie- 
rung gestaltet sich somit ähnlich wie bei 
DOS-Befehlen in umfangreicheren An- 
wenderprogrammen. 

Darüber hinaus besteht die Möglichkeit, 
das Programm auch im Direktmodus auf- 
zurufen. 


2. Der Programmstart 


Vor der Erläuterung der Interna soll zu- 
nächst die Initialisierung und der Aufruf 
des Programms, das AS.FILER (= Ap- 
plesoft-Filer) genannt wurde, beschrieben 
werden. Das Programm wird durch BRUN 
AS.FILER gestartet und setzt als Ersatz- 
werte für Quell- und Ziellaufwerk die Para- 
meter des Startlaufwerks ein. Der Benut- 
zer muß danach den Pufferumfang durch 
Angabe des HIMEM-Wertes festlegen; 
dieser Puffer bestimmt die Datenmenge, 
die auf einmal in den Rechner eingelesen 





werden kann, und sollte, um mehrfache 
Kopierschübe zu vermeiden, so groß wie 
möglich gewählt werden. Im Direktmodus 
kann HIMEM z.B. auf 4096 ($1000) ge- 
setzt werden, d.h. je tiefer die angegebene 
Adresse, desto größer wird der Puffer. Im 
Programm sollte dieser Wert jenseits der 
Variablengrenze liegen und noch etwas 
„Luft“ für Strings lassen (siehe die beiden 
Beispielprogramme). Das Programm 
selbst beginnt im Speicher ab $8EA4 
(bzw. $8ED8, da die Initialisierungsroutine 
überschrieben werden kann) und bildet 
die Obergrenze des Datenpuffers. 


3. Der Aufruf 


Der eigentliche Aufruf des Kopierpro- 
gramms erfolgt dann durch den Befehl „& 
Quelldatei, Zieldatei“, wobei die beiden 
Dateiangaben als Strings angegeben wer- 
den müssen. Die Dateiangabe besteht aus 
dem Dateinamen und den durch Komma 
getrennten Laufwerksparametern. Wird 
die Laufwerksangabe weggelassen, so 
setzt das Programm die zuletzt benutzten 
Werte ein. Die Laufwerksangabe besteht 
aus Slot und Drive (die Reihenfolge spielt 
dabei keine Rolle) und muß nicht vollstän- 
dig sein, d.h., daß z.B. der Slot nicht im- 
mer bestimmt werden muß. 

Die Angabe der Zieldatei kann entfallen; in 
diesem Fall wird der Quellname und das 
zuletzt angegebene Ziellaufwerk einge- 
setzt. Das Komma zwischen Quell- und 
Zieldatei darf in diesem Fall nicht getippt 
werden. Soll der Quellname benutzt wer- 
den, jedoch ein anderes Ziellaufwerk, so 
kann die Zieldateiangabe nur aus der Be- 
stimmung des Laufwerks bestehen, wobei 
jedoch aus syntaktischen Gründen ein 
Komma vorangehen muß. 

Um dieser formalen Beschreibung etwas 
Farbe zu geben, sind im folgenden einige 
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Beispiele mit Erläuterungen aufgelistet. 
Dabei seien folgende Eingaben vorange- 
gangen: 


BRUN AS.FILER,S6,D1 
HIMEM: 3000 

N$ = "DATEI" 

DRIVE =2 


& “ORIGINAL*“, "FAELSCHUNG,D2“ — 
kopiert die Datei ORIGINAL von Laufwerk 
S6, Di als Datei FAELSCHUNG nach S6, 
D2. 

& "TEXT" — kopiert die Datei TEXT von 
Laufwerk S6, Di unter gleichem Namen 
nach S6, D2. 

& “"PROGRAMM,D2“, “"POGRAMM.T1" — 
kopiert die Datei PROGRAMM von Lauf- 
werk S6, D2 mit dem Namen PRO- 
GRAMM.1 auf das gleiche Laufwerk. 

& N$ + ",S3", *,D1,53* — kopiert die 
Datei mit Namen DATEI von Laufwerk S3, 
D2 mit demselben Namen nach S3, D1. 

& N$ + “.COPY“, "DATEI.BAK,D“ + 
STR$ (DRIVE) - kopiert die Datei namens 
DATEI.COPY von Laufwerk S3, D2 mit 
dem Namen DATEI.BAK auf dasselbe 
Laufwerk. 


Es ist zu beachten, daß Leerzeichen nur 
innerhalb des Dateinamens stehen dürfen. 


4. Die Fehlermeldungen 


Wenn während der Übertragung mit nur 
einem Laufwerk ein Diskettenwechsel not- 
wendig wird, meldet sich das Programm 
mit einer Fehlermeldung und Fehlernum- 
mer. Nach dieser Meldung kann mit dem 
&-Befehl fortgefahren werden (es versteht 
sich, daß die Diskette vorher gewechselt 
werden muß). Besteht die Zieldatei bereits 
oder ist sie gesperrt, so wird ebenfalls eine 
Warnung in Form eines Fehlers ausgege- 
ben. In diesem Fall kann durch „& Name“ 
ein neuer Zielname angegeben oder durch 
einen einfachen &-Befehl die alte Datei 
überschrieben werden. 

Es gibt jedoch auch einige weniger erfreu- 
liche Fehlermeldungen, die die Kopie ab- 
brechen. In der Tabelle der Fehlermel- 
dungen und Hinweise sind diese zusam- 
mengestellt. 

Daraus wird auch ersichtlich, daß eine Ko- 
pie bei jeder Meldung durch die Eingabe 
von „&,“ abgebrochen werden kann. 
Diese Verfahrensweise ermöglicht zwar 
eine große Flexibilität, es ist jedoch davor 
zu warnen, die Antwort auf eine Meldung 
erst nach mehreren anderen Aktionen zu 
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geben. Dagegen kann während einer Ko- 
pie durchaus mittels „CATALOG“ die Exi- 
stenz von Dateien nachgeprüft werden 
(z.B. zur Festlegung eines Ersatz-Zielna- 
mens) 

Innerhalb eines Programmablaufs sollte 
auf die Meldungen durch „ONERR GO- 
TO“-Konstruktionen eingegangen wer- 
den. Dies geschieht auf die übliche Weise; 
der Fehlercode kann wie bisher durch 
PEEK (222) ermittelt werden. Näheres 
hierzu ist aus den beiden Beispielpro- 
grammen zu entnehmen. 


Der Kopiervorgang sei noch einmal an ei- 
nem kurzen Dialog verdeutlicht, bei dem 
die (sehr lange) Datei XXX mit nur einem 
Laufwerk kopiert werden soll: 


& "XX,S6,D1“, *,S6,D1* <RETURN> 
#6 ERROR (bedeutet: vertippt — Datei exi- 
stiert nicht) 

& "XXX" <RETURN> 

#2 ERROR (bedeutet: Zieldiskette ein- 
legen) 

& <RETURN> 

#4 ERROR (bedeutet: Datei existiert be- 
reits) 

CATALOG <RETURN> (neuen Dateina- 
men suchen) 

& "YYY“ <RETURN> 

#1 ERROR (bedeutet: Quelldiskette ein- 
legen) 

& <RETURN> 

#2 ERROR (bedeutet: erneut Zieldiskette 
einlegen) 

& <RETURN> 


5. Technische Details 


Der Aufruf des File-Managers wurde 
schon im Peeker, Heft 5/85 beschrieben 
und soll nur noch einmal kurz zusammen- 
gefaßt werden. Zum Einlesen einer Datei 
muß diese zunächst eröffnet werden. Da- 
bei wird deren Existenz überprüft und der 
(erste) TSL-Sektor eingelesen. Bevor nun 
die Daten gelesen werden können, ist die 
Datei zu positionieren, d.h. ein interner 
Dateizeiger wird im allgemeinen auf den 
Dateianfang gesetzt. Nach dieser Positio- 
nierung kann der Inhalt der Datei in den 
Rechner gelesen werden. 

Aufgabe des Programmierers ist die Be- 
reitstellung des Speicherbereiches, der 
die Daten aufnehmen soll. Da Daten stets 
nur sektorweise (1 Sektor = 256 Bytes) 
eingelesen werden, muß ein Puffer bereit- 
gestellt werden, der darüber hinaus auch 
den TSL-Sektor aufnehmen muß. Weiter- 
hin benötigt der File-Manager einen Puf- 
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fer, um alle im Zusammenhang mit dieser 
Datei relevanten Daten abzulegen (dies ist 
die Voraussetzung für die gleichzeitige 
Bearbeitung mehrerer Dateien). 


Paßt die eingelesene Datei nicht auf ein- 
mal in den Speicher, so bricht der File- 
Manager den Lesevorgang ab. An dieser 
Stelle kann nun der gepufferte Dateiinhalt 
auf die Zieldatei geschrieben werden, die 
auch zunächst eröffnet und positioniert 
werden muß. Bei der Eröffnung der Zielda- 
tei muß die Möglichkeit bestehen, diese 
neu anzulegen. Dies wird durch das Sog. 
Allocation-Flag (X-Register) mitgeteilt. 
Nachdem der Puffer auf die neue Datei 
geschrieben wurde, kann in einem weite- 
ren Durchlauf der nächste Teil des Files 
eingelesen werden, um auch diesen zu 
übertragen. Das Ende der Datei ist er- 
reicht, wenn beim Einlesen ein „END OF 
DATA“-Fehler auftritt. Nach dem letzten 
Beschreiben der Zieldatei muß diese ge- 
schlossen werden. Dabei wird die TSL auf 
der Diskette aktualisiert und der letzte 
Datensektor als belegt gekennzeichnet. 
Die Quelldatei muß im Gegensatz zum 
DOS-Aufruf auf Applesoft-Ebene nicht ge- 
schlossen werden (Dieses Schließen im 
Applesoft-Programm bewirkt nur, daß der 
Dateipuffer freigegeben wird). 

Beim Lesen und Schreiben wird die Länge 
des Speicherbereichs in der File-Mana- 
ger-Parameter-Liste übergeben. Es ist da- 
bei zu berücksichtigen, daß die Länge 
beim Schreiben um 1 vermindert werden 
muß. 


6. Programm-Interna 


Das Programm AS.FILER untergliedert 
sich in vier Teile: 


® Im Initialisierungsteil wird der &-Vektor 
gesetzt und die Lage der File-Manager- 
Parameter-Liste und des Input/Output- 
Blocks über eine Page-3-Routine ermittelt. 
Danach werden die Ersatzwerte für Slot 
und Drive aus dem IOB übernommen und 
ein Status-Register auf Null gesetzt. Die- 
ses Register gibt während des Kopiervor- 
gangs den Zustand an, um nach einem 
Wiederaufruf (z.B. nach Diskettenwech- 
sel) an der richtigen Stelle fortfahren zu 
können. 


® Der zweite Teil bildet die Benutzer- 
schnittstelle. Nach Aufruf durch den Am- 
persand-Vektor werden hier zunächst die 
Übergabeparameter ausgewertet; die 
Kontrolle der Syntax richtet sich nach dem 
derzeitigen Status. Bestehen keine Bean- 
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standungen, so wird in den entsprechen- 
den Teil der Hauptroutine verzweigt. 


® Im Haupteil erfolgt die eigentliche Ko- 
pie. Er besteht im wesentlichen aus wie- 
derholten Aufrufen des File-Managers, 
wobei dessen Fehlermeldungen den Ab- 
lauf regeln. Da diese Routine mehrfach für 
einen Kopiervorgang aufgerufen werden 
kann, müssen einige Werte gesichert 
werden: 


Zunächst wird ermittelt, ob nur ein Lauf- 
werk vorliegt (SAMESD) um vor dem Um- 
schalten einen Diskettenwechsel zu er- 
möglichen. Außerdem muß festgelegt 
werden, ob beim Lesen eine „END OF 
DATA“-Meldung auftrat, um zum einen 
den Pufferumfang entsprechend zu ver- 
kleinern und zum anderen den letzten 
Durchgang zu markieren (LSTPASS), da 
nach dem letzten Schreiben die Zieldatei 
geschlossen werden muß und somit die 
Kopie abgeschlossen ist. Darüber hinaus 
muß durch die Variable OPNFLG sicher- 
gestellt werden, daß die Zieldatei beim 
zweiten Schreibdurchgang nicht nochmals 
eröffnet wird. 

Eine detaillierte Schilderung dieser Routi- 
ne würde hier zu weit führen; es sei daher 
auf die reichhaltigen Kommentare im Pro- 
gramm verwiesen. 


® Der vierte Teil beinhaltet die Unterpro- 
gramme zum Aufruf des File-Managers 
und der Auswertung des Übergabe- 
Strings. Diese Routinen zeichnen sich 
nicht durch eine gesteigerte Durchsichtig- 
keit aus, weil versucht wurde, den Code 
so kurz wie möglich zu halten. 

Die Parameterauswertung gestaltet sich 
zum einen wegen der vielen optionalen 
Angaben etwas umständlich, zum anderen 
muß die Integrität des Namens (dies bein- 
haltet auch die maximale Länge von 30 
Zeichen) sichergestellt werden. 


Vor der Beschreibung der Beispielpro- 
gramme noch einige allgemeine Erläute- 
rungen zum Programm: 


Die Variable PAGES legt die Anzahl der 
minimalen Pufferseiten fest. Umfaßt der 
Speicherbereich zwischen HIMEM und 
dem COPY-Programm weniger als die in 
dieser Variablen festgelegten Seiten, so 
erfolgt eine „OUT OF MEMORY“-Fehler- 
meldung. 

Bricht das Programm wegen eines „DISK 
FULL“-Fehlers ab, muß die Zieldatei in 
jedem Fall geschlossen werden, da sonst 
beim Löschen dieser Datei die belegten 
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Sektoren in der VTOC nicht mehr freige- 
geben würden. 

Das Lockbit im Filetyp-Byte wird stets zu- 
rückgesetzt, da das Programm ansonsten 
eine Überschreibung der neu eröffneten 
(geschlossenen) Datei verweigern würde. 
Vor dem Überschreiben einer existenten 
Datei wird diese zuerst gelöscht, da sonst 
die alte Länge und der Filetyp erhalten 
bliebe. 

Das Programm verwendet keine DOS- 
Puffer, sondern stellt selbst ca. 1200 Bytes 
unterhalb von $9600 bereit. 

Unter Standard-DOS kann sich die hier 
vorgestellt Utillity geschwindigkeitsmäßig 
nicht mit FID messen, da FID im Gegen- 
satz zu diesem Programm nicht „seriös“ 
programmiert wurde und deshalb z.B. 
nicht mit gemovtem DOS ohne Patch läuft. 
Benutzt man hingegen z.B. Diversi-DOS, 
so halten sich die Übertragungsgeschwin- 
digkeiten in etwa die Waage. 


7. STARTUP zum Kopieren 
von Diskette auf RAM-Disk 


Beim Kaltstart des Rechners ist es wün- 
schenswert, wenn eine RAM-Disk instal- 
liert wird und alle wichtigen Dateien dort- 
hin übertragen werden. Das Programm 
STARTUP demonstriert eine Möglichkeit 
mit der Poor Man’s RAM-Disk aus Peeker, 
Heft 1-2/85, S. 8; es kann jedoch jede 
andere RAM-Disk benutzt werden, deren 
Initialisierung als Unterprogramm aufgeru- 
fen werden kann (Zeile 120 und 130 sind 
dann zu ändern). Die hier verwendeten 
POKEs verhindern einen DOS-Warmstart 
und das Löschen des Bildschirms; der 
Einsprung erfolgt dann hinter dem Instal- 
lierungsmenü. 

Nach dem Starten des AS.FILER wird HI- 
MEM auf den niedrigsten Wert (Variablen- 
ende + 7 Strings für die Dateinamen) ge- 
setzt, um einen maximal großen Puffer zu 
erhalten. Die zu übertragenden Dateien 
werden in einer DATA-Zeile festgehalten 
und nacheinander kopiert. Da beim Kalt- 
start des Rechners nicht allzuviele Fallun- 
terscheidungen nötig sind, reduziert sich 
die Fehlerbehandlung auf wenige Zeilen. 
Erwähnenswert ist die Zeile 340, die in 
jeder Fehlerbehandlungsroutine nach 
„ONERR GOTO“ eine ganz normale Feh- 
lerausgabe produziert. Dieses Verfahren 
bietet sich beim Austesten von Program- 
men an, wenn nicht sichergestellt ist, ob 
alle möglichen Fehler abgefangen werden 
(was in dem Programm STARTUP nicht 
der Fall sein sollte). 


Tritt bei der Übertragung ein „DISK FULL 
ERROR“ auf (die Poor Man’s RAM-Disk 
umfaßt nur 61 reine Datensektoren), so 
wird die letzte Datei gelöscht, da sie ohne- 
hin nicht komplett kopiert wurde und somit 
nutzlos wäre. 


8. ENDUP zum Kopieren 
von RAM-Disk auf Diskette 


Der Inhalt einer RAM-Disk geht nach dem 
Ausschalten des Rechners verloren — es 
sei denn, die Dateien werden auf eine 
physische Diskette kopiert, was insbeson- 
dere für die eigentlichen Datendateien er- 
forderlich ist. Eine Automatisierung dieses 
Vorgangs wäre wünschenswert. 

Das Programm ENDUFP zeigt ein weiteres 
Beispiel für die Anwendung des AS. 
FILER. Hierbei wird im Gegensatz zum 
FID-Programm automatisch ein Suffix an- 
gehängt, wenn eine Datei gleichen Na- 
mens auf der Zieldiskette bereits existiert. 
Das Programm besteht im wesentlichen 
aus drei Teilen. Das Hauptprogramm (Zei- 
Ie 1000 ff.) regelt die Übertragung der 
Dateien und die Bearbeitung der Fehler- 
meldungen und Warnungen. Das Unter- 
programm ab Zeile 2000 liest aus der Ca- 
talog-Spur der Diskette bei jedem Aufruf 
einen Dateinamen ein und übergibt diesen 
an das Hauptprogramm. Es bedient sich 
dabei des Unterprogramms ab Zeile 3000, 
das den angegebenen Sektor in den Ein- 
gabepuffer einliest. 

Im Hauptprogramm werden zunächst die 
Laufwerksparameter von Quell- und Ziel- 
diskette abgefragt. Nach Angabe dieser 
Werte läuft die komplette Übertragung au- 
tomatisch ab, wobei die Namen der ko- 
pierten Dateien ausgegeben werden. Be- 
steht auf der Zieldiskette bereits eine Datei 
mit demselben Namen, so wird der Zielda- 
tei solange eine „.COPY“ angehängt, bis 
ein noch nicht existierender Name ent- 
steht. (Dieses Verfahren gerät jedoch in 
eine Endlos-Schleife, wenn der Dateina- 
me eine Länge von 30 Zeichen über- 
schreitet.) 

Das Programm kann selbstverständlich 
auch genutzt werden, um Dateien zwi- 
schen zwei physischen Laufwerken zu 
transferieren. Soll eine selektive Übertra- 
gung erfolgen, so kann in Zeile 2145 der 
Dateityp durch die Anweisung 

TYP = PEEK (514 + IND) 

ermittelt werden; zur Kopie reiner Ap- 
plesoft-Dateien ist dann folgende Zeile 
einzufügen: 

1215 IFTYP <> 2 THEN 1200 
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(zu den Dateitypen s. Peeker, Heft 5/85, 
Seite 9: DOS-File-Manager). 

Obwohl die Kopie einer Diskette auf sich 
selbst möglich wäre, sei vor diesem Spiel 
gewarnt. Solange weniger als 7 Dateien zu 
übertragen sind, findet das Programm ein 
Ende, wenn nie mehr als 6 Dateien auf der 
Diskette existierten. Ansonsten wird die 
erste Datei mit dem Anhängsel „.COPY 
.‚COPY“ so lange kopiert, bis ein „DISK 
FULL ERROR“ auftritt. 


Das Unterprogramm, das jeweils den 
nächsten Catalog-Eintrag holt, liest beim 
ersten Aufruf den ersten Catalog-Sektor in 
den Eingabepuffer ein. Danach wird ein 
Index auf den ersten Eintrag gebildet und 
der Dateiname herausgepeekt. Dabei muß 
von hinten das erste Nicht-Leerzeichen 
gesucht werden, da ansonsten jeder Na- 
me 30 Zeichen umfassen würde und ein 
Suffix bedeutungslos wäre. Um Konflikte 
mit der internen String-Darstellung des 
Applesoft-Interpreterss zu vermeiden 
(DOS 3.3 legt die Dateinamen mit Bit 7 = 
1 ab, während der Interpreter und der AS- 
‚FILER positive ASCIl-Werte bearbeitet), 
wird durch Subtraktion von 128 das Bit 7 
gelöscht. 

Beim nächsten Aufruf dieses Uhnterpro- 
gramms wird der Index um 35 erhöht und 
ein weiterer Name ausgewertet. Dabei 
muß geprüft werden, ob dieser Eintrag 
nicht gelöscht wurde (Zeiger zur ersten 
Track/Sektor-Liste enthält $FF), um ihn 
gegebenenfalls zu übergehen. Dieses 
Byte wird auch zur Erkennung des Cata- 
log-Endes herangezogen: ein nie referier- 
tes Feld enthält hier eine Null. Die Variable 
ERR wird dann vor dem Rücksprung in das 
Hauptprogramm auf 1 gesetzt. Über- 
schreitet der Index die Sektorgrenze, so 
wird der nächste Catalog-Sektor eingele- 
sen, falls es sich nicht schon um Sektor 1 
der Catalog-Spur handelt. 


Das Einlesen eines Sektors mit Hilfe eines 
(fast) reinen Applesoft-Programms ist we- 
nig geeignet, um den hochsprachlichen 
Charakter des BASIC zu demonstrieren — 
das hier gezeigte Unterprogramm kann 
dennoch in vielen Fällen nützlich sein. 

Vom Hauptprogramm müssen die Sektor- 
parameter (SLOT, DRIVE, TRACK, SEC- 
TOR) übergeben werden. Beim Aufruf 
wird zunächst die Lage des IOB und der 
RWTS bestimmt. Da auch hier jegliche 
Kompatibilität gewahrt werden soll, ist die 
Adresse des IOB nur durch die umständli- 
che Konstruktion mit den indirekten 
PEEKs möglich. Bevor die RWTS aufgeru- 
fen wird, müssen die Parameter in diesen 


Peeker 9/85 





Kontrollblock übertragen werden. (Auf die 
Bedeutung der einzelnen POKESs soll hier 
nicht weiter eingegangen werden). 

Beim Sprung in die RWTS müssen das A- 
und Y-Register die Adresse des IOB ent- 
halten; daher kann nur über ein kurzes 
gepoktes Maschinenprogramm dorthin 
gesprungen werden. 

Vor der Rückkehr in das aufrufende Pro- 
gramm wird letztendlich ein Fehlercode in 
die Variable ERR eingelesen, wobei ERR 
= O den erfolgreichen Lesevorgang signa- 


lisiert. 
s‘ 


AS.FILER Hex-Dump 
BSAVE AS.FILER, A$8EA4, L1884 


$8EAB: 99 d0 A9 D8 AP 8E 
$8EAB: 03 F7 03 29 DC 
$8EBP: ED EE 29 03 
$8EBS: 85 Ad 99 65 
$8ECP: Bl AA 4A 4a 
$8ECB: 91 59 91 Bl 
$8EDP: aA 8D 58 
$8EDS: D® 20 Bl 
$8EEPß: AE 91 F® 
$8EES: d6 26 8F 
$8EFPß: 02 06 20 
$8EFB8: 8F 03 D® 
$8Fpp: D® A2 BE 
$8Fß8: 99 13 8F 
$8F19: DA DE A9 
$8F18: ac 8F 20 
$8F29: 8F Bß 8F 
$8F28: Ö1 05 
$8F3ß: nn 91 
$8F38: A9 73 
$8F49: E5 FB 
$8F48: B® 10 
$8F5B: AD CD 
$8F58: AD ED 
$8F6p: 91 8E 
$8F68: E® 03 
$8F79: 07 29 
$8F78: A2 Dl 
$8F8ß: 68 04 
$8F88: 20 Fo 
$8F9ß: 18 A5 
$8F98: FA FB 
$8FAB: AD D® 
$8FAB: lE 91 
$8FBP: 8E A2 
$8FB8: A® ED 
$SFCQ: D® D® 
$8Fc8: 65 30 
$8FDB: 66 D1 
$8FD8S: AD D® 
$8FEB: 20 A9 
$8FES: 69 29 
$8FFQ: BD 9D 
$8FF8: F7 pn) 
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$9p99: 
$9p998: 
$9019: 
$9918: 
$9929: 
$9028: 
$993B: 
59038: 
$994p: 
$9048: 
$9059: 
$9058: 
$9ß6B: 
$9068: 
$9079: 
$9978: 
$9089: 
59088: 
$9B9p: 
$9998: 
$9DAB: 
$9PAB: 
$9pBP: 
$90B8: 
$9pCp: 
$9908: 
$9P0DB: 
$99D8: 
$IpEP: 
$9BES: 
$90FB: 
$9BF8: 
$9199: 
$9108: 
$911P: 
$9118: 
$9129: 
$9128: 
$9139: 
$9138: 
$9149: 
$9148: 
$9159: 
$9158: 
$9169: 
(ab hier Datenpuffer) 





DB-MEISTER 


Adreß- und Schemabriefprogramm 


Der DB-Meister ist ein in Assembler ge- 
schriebenes, ungewöhnlich schnelles, un- 
kompliziertes und zugleich „narrensicheres“ 
Adreß-, Datei- und Schemabriefprogramm. 
Technische Daten 
Recordlänge bis zu 230 Zeichen 
560 bis 1000 Records pro Datendiskette 
Maximal 25 Felder pro Record 
Suche nach 3 Indexfeldern 
Ausdruck der Dateien als Etiketten, Listen 
und Schemabriefe (mit Felder- und Tasta- 
tureinschüben an beliebigen Stellen des 
Formbriefes) 
normal kopierbare Programmdiskette, un- 
terteilt in Hauptprogramme und diverse 
Hilfsprogramme 
einsatzfähig auf Apple Ile, IIc oder II Plus 
mit 2 Drives (1 Drive ebenfalls möglich) 


Gesamtpreis 290,—- (2 Disketten + ge- 
drucktes Manual) 

U. Stiehl 

c/o Dr. A. Hüthig Verlag 

Postfach 10 28 69 - 6900 Heidelberg 
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Tabelle der Fehlermeldungen und Hinweise ENDUP 


Hinweise 


1d®1 REM * ENDUP x 
elldiskett x 
Fi m ewe 1010 PRINT CHR$ (4)"BRUN AS.FILER" 
R te 1020 PRINT CHR$ (12): HOME 
’ 1030 INPUT "Quellaufwerk (S,D): ";SLOT,DRIVE 
i 1048 IF SLOT < ® OR SLOT > 6 THEN 193 
en 1050 IF DRIVE < ® OR DRIVE > 2 THEN 1039 
& ee 1069 INPUT "Ziellaufwerk (S,D): ";ZS,ZD 
2. RO 1070 IF ZS < ® OR ZS > 6 THEN 106 
1080 IF ZD < ® OR ZD > 2 THEN 1060 
D . 
U ae 1090 PRINT : PRINT "Zieldiskette einlegen..." 
RE ee ans 1100 PRINT TAB( 22)"...Taste drücken": GET A$: PRINT 
B 1118 HIMEM: PEEK (109) + PEEK(11®) * 256 + 20@0: REM 2000 
; : Kopie abbrechen Bytes für Strings 
ae 112® ONERR GOTO 130% 
EWR UETNER EIER 1200 GOSUB 2009: IF ERR = 1 THEN 1969 
&, : Kopie abbrechen 1230 & N$ + ",S" + STR$ (SLOT) + ",D" + STR$ (DRIVE) ,",S" + 
Fehlermeldungen 1249 Be Er Di 
ie ba 1300 en GOTO 1499,1409,15909,1509,1909, 1900 ,1699, 
Versuch eines Neustarts bei laufender Kopie 1400 & : GOTO 1200: REM kein Diskettenwechsel 
(Kopie beenden oder mit "&," abbrechen) 1500 N$ = N$ + ".COPY": REM keine Datei überschreiben 
rn er 1518 PRINT ".COPY";: & N$: GOTO 1299 
Datei existiert nicht: | 1600 PRINT : PRINT CHR$ (7)"Zieldiskette schreibgeschützt": 
Versuch, nicht existierende Datei zu kopieren END 
(mit neuem Namen nochmal versuchen) 1700 PRINT : PRINT CHR$ (7)"I/0-Fehler": END 


j l PRINT : ei i m. 
Diskette schreibgeschützt: .n PRINT CHR$ (7)"Zieldiskette voll END 


(Schreibschutzmarke entfernen und Kopie neu starten) 1997 REM Nächsten Catalog-Eintrag holen 


2000 IF TRK = 17 THEN 2199 


I/0-Fehler: 
5 2010 TRK = 17: REM Catalog-Spur 
Laufwerk nicht geschlossen oder Diskette schadhaft nn SEC = 15: REM 1 eo. 5 


(andere Diskette einlegen und Kopie neu starten) 2030 IND = 11 - 35 

. 2100 IND = IND + 35: IF IND = 256 THEN SEC = SEC - 1:IND = 
Diskette voll: 11 
Datei paßt nicht mehr auf Zieldiskette 2110 IF SEC = ® THEN 2306 


(unvollständige Datei löschen) 2120 IF IND = 11 THEN GOSUB 3ß@®: IF ERR THEN 240 
2130 IF PEEK (512 + IND) = ® THEN 2300 
STARTUP 2140 IF PEEK (512 + IND) = 255 THEN 219% 
2150 N$ = m 
101 REM * STARTUP x« 2160 FOR I = 544 + IND TO 516 + IND STEP - 1 
110 HOME : PRINT "Ramdisk geladen ... 2178 IF PEEK (I) < > 16® THEN 2200 
128 PRINT CHR$ (4)"BLOAD RAMDISKLC" 2180 NEXT 
130 POKE 24902,96: POKE 25084,96: CALL 24895 2200 FOR J = 515 + IND TO I 
140 PRINT "... und initialisiert" 2210 N$ = N$ + CHR$ ( PEEK (J) - 128): NEXT 
15® PRINT CHR$ (A)"BRUN AS.FILER" 2220 RETURN 
16® HIMEM: PEEK (109) + PEEK (11ß) * 256 + 7 x 30: REM 2300 ERR = 1: RETURN : REM Catalog-Ende 
210 Bytes für Strings 2400 ERR = 2: RETURN : REM I/O0-Fehler 
178 ONERR GOTO 399 2997 REM RWTS-Aufruf 
180 READ A$: PRINT "Datei "A$; 3000 IOB = PEEK ( PEEK (996) + PEEK (997) x 256) * 256 + 
190 & A$,",S3": PRINT " übertragen" PEEK ( PEEK (999) + PEEK (19ß0) * 256) 
208 GOTO 18% 3010 RWTS = 768 
299 REM Fehlerbehandlung 3020 POKE 768,32: POKE 769,227: POKE 770,3: POKE 771,76: 
300 IF PEEK (222) = 42 THEN PRINT : PRINT "Übertragung POKE 772,217: POKE 773,3 
beendet'': END 3030 POKE IOB 15, PEEK (IOB + 1): REM letzter Slot 
318 IF PEEK (222) 6 THEN PRINT " existiert nicht": GOTO 3049 POKE IOB 16, PEEK (IOB + 2): REM letzter Drive 
189 305® POKE IOB 1,SLOT *& 16: REM neuer Slot 
320 IF PEEK (222) = 8 THEN PRINT CHR$ (7): PRINT 3060 POKE IOB 2,DRIVE: REM neuer Drive 
"Diskettenfehler": END 3070 POKE IOB 3,0: REM Volume-Nummer 
330 IF PEEK (222) = 9 THEN PRINT CHR$ (7): PRINT "RAM-Disk 3080 POKE IOB 4,TRK: REM Spurnummer 
voll": PRINT CHR$ (4)"DELETE'"A$",S3": END 3098 POKE IOB + 5,SEC: REM Sektornummer 
340 POKE 763,166: POKE 764,222: POKE 765,76: POKE 766,25: 31ßßPOKE IOB + 8,0: REM Low-Byte, Eingabepuffer 
POKE 767,212: POKE 117, PEEK (218): POKE 118, PEEK 311® POKE IOB + 9,2: REM High-Byte, Eingabepuffer 
(219): CALL 763 3128 POKE IOB + 12,1: REM Lesen 
400 DATA STARTUP ,RAMDISCLC,AS.FILER, ENDUP 3130 CALL RWTS:ERR = PEEK (IOB + 13): RETURN 


2 T INTUS-Lernprogramme, Demo-Disketten und den Gesamt- 
Computer unterstütztes Lernen katalog erhalten Sie bei den meisten Apple-Fachhänd- 
Maschinenschreiben, Basic, Wortschatztrainer, Computer-Simulator, Schnell- lern, in Computer-Fachabteilungen und bei Pandasoft. 

lesen, Rechtschreibtrainer, usw. ) 


®© Programme für Apple Ile/lic/teilw. +. 
@ Demo-Diskette mit 8 Programmen und 7 Denkspielen DM 10,- INTUS SOFTWARE 
® Gesamtkatalog mit über 200 Titeln kostenlos. Kaiserstraße 21, 7890 Waldshut, Telefon 07751/7920 
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AS.FILER 

l #--—-—-—--—-- 2... * 
2 * 

3 * Applesoft-Filer 

4 * 

5 a —— * 
6 

7 ORG $8EA4 

8 

9 * Neu speichern mit: BSAVE AS.FILER, A$8EA4, L$B2C1 
19 * Nach BRUN: HIMEM maximal auf 36312 ($8DD8) setzen 
ll 

12 PAGES EQU 1 ‚minimale Seitenzahl des Puffers 
15 Acc EQU $45 ;Akkumulator hierher retten 
14 XREG EQU $46 ;X-Register hierher retten 
15 __YREG EQU $47 ;Y-Register hierher retten 
16 INDEX EQU $5E ‚Stringdeskriptor (ohne Länge) 
17 MEMSIZE EQU $73 ;<-> HIMEM 

18 CHRGET EQU $Bl ‚Zeichen aus Quelltext holen 
19 __CHRGOT EQU $B7 ;letztes Zeichen nochmal 

20 ERRFLG EQU $D8 ;"ONERR GOTO"-Flag 

21 IOB EQU $EB ‚Adresse des IOB 

22  FMPL EQU $ED ‚Adresse der FMPL 

23 LEN EQU $EF ‚Länge bei Namensbestimmung 
24 SDINDX EQU $F9 ‚Index auf Slot oder Drive 
25 BUFRNGE EQU $FA ;Umfang des Puffers 

26 

27 FM EQU $3D6 ;Sprung zum File-Manager 

28 _GETFMPL EQU $3DC ;Adresse der FMPL bestimmen 
29 GETIOB EQU $3E3 ‚Adresse des IOB bestimmen 
30 AMPER EQU $3F5 ;&-Vektor 

Sl 

32 ILLQERR EQU $E199 ;"ILLEGAL QUANTITY" 

33 MEMERR EQU $D41® ;"OUT OF MEMORY" 

34 ERRENT EQU $D42A ;Fehlerausgabe (Einsprung) 
35 CRDO EQU $DAFB ;CR ausgeben 

36 _OUTDO EQU $DB5C ‚Zeichen ausgeben 

37 CHKCOM EQU $DEBE ‚prüfen ob Komma folgt 

38 SYNERR EQU $DECY "SYNTAX" 

39  FRMEVL EQU $DD7B ;Ausdruck auswerten 

4d0 ISLETC EQU $Eß7D ;prüfen, ob Buchstabe 

41 FRESTR EQU $ESFD ‚Stringdeskriptor freigeben 
42 HANDLERR EQU $F2EYI ;Fehlerbehandlung 

43 

44 #*-—-———— — —  — Initialisierung --—----—------—- 
45 

46 INIT LDA #<COoPY ‚Adresse 

47 LDY #>COPY ; der COPY-Routine in 

48 STA AMPER+1 ; &-Vektor eintragen 

49 STY AMPER+2 

50 JSR GETFMPL ‚Adresse der FMPL 

51 STY FMPL ; holen 

52 STA FMPL+1 

53 JSR GETIOB ‚Adresse des IOB 

54 STY IOB ; holen 

55 STA IOB+l 

56 LDY #9 ‚Status für 

57 STY STATUS ; Neustart 

58 INY ‚Index auf Slot 

59 LDA (IOB),Y ‚zuletzt 

69 LSR ; benutzten 

61 LSR ; SLoL 

62 LSR ; durch 16 

63 LSR 

64 STA PRIMSLT ‚ als Ersatzwert 

65 STA SECSLT ;‚ eintragen 

66 INY 

67 LDA (IOB),Y ‚letzten Drive als 

68 STA PRIMDRVE ;‚ Ersatzwert 

69 STA SECDRVE eintragen 

78 RTS 

7 

72 #-—-—-—-—-—-------------——— Kopieren -—----------—- * 
73 

74 COPY CMPU #',' ;Komma 

75 BNE NOCOM ; bricht Kopie ab 

76 JSR CHRGET ;‚Textzeiger erhöhen 

77 JMP ENDCOPY ‚ und Kopie beenden 

78 _NOCOM LDX STATUS ;Status = ß, 

79 BEQ NEWCOPY ; d.h. neue Kopie 

80 CPX #1 ;Quelldiskette eingelegt? 
8l BNE NOTRD 

82 JSR CHKEOS ‚Endmarker muß folgen 

83 JMP RDBUF1 

84 NOTRD CPX #2 ;‚Zieldiskette eingelegt? 

85 BNE NOTWRT 
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JSR 
JMP 
NOTWRT CPX 
BNE 
JSR 
BNE 
LDX 
LDA 
JSR 
JMP 
NOTLCKD UJSR 
BNE 
DELETE LDX 
LDA 
JSR 
JMP 
NEWNME JSR 
JSR 
JMP 


CHKEOS JSR 
BNE 
RTS 
ILLCALL LDA 
JMP 


* neue Kopie 


NEWCOPY LDA 


STA 


STA 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
BCC 
SBC 
BCS 
MEMERRl JMP 


NEWCOPYl JSR 
LDA 
CMP 
BNE 
LDA 
SBC 
SETFLAG STA 


* Quelldatei 


LDX 
STX 
DEX 
JSR 
BEQ 
JMP 
FLEFND LDY 
LDA 
AND 
STA 


* Quelldatei 


LDX 
JSR 
BEQ 


* Quelldatei 


RDBUF LDA 
BNE 
LDA 
BNE 


RDBUF1 JSR 
BEQ 
STA 
CLC 
LDY 
LDA 
SBC 
STA 
INY 
LDA 
SBC 


CHKEOS 
OPEND1 
#3 
NOTLCKD 
CHRGOT 
NEWNME 
+14 
+$8 
CALLFM 
DELETE 
CHRGOT 
NEWNME 
+14 
#$5 
CALLFM 
OPEND2 
GETDST 
CHKEOS 
OPEND2 


CHRGOT 
ILLCALL 


#5 
EXIT 


beginnen 


+0 
LSTPASS 
OPNFLG 


#<COPY 
MEMSIZE 
BUFRNGE 
#>COPY 
MEMSIZE+1 
BUFRNGE+1 
MEMERR1 
#PAGES 
NEWCOPYI 
MEMERR 


GETNME 
PRIMSLT 
SECSLT 
SETFLAG 
PRIMDRVE 
SECDRVE 
SAMESD 


eröffnen 


#1 
ALLOCATE 


OPEN 
FLEFND 
EXIT 

+$7 
(FMPL),Y 


#%@01111111 


FILETYP 


+9 
POSITION 
RDBUF1 


SAMESD 
RDBUF1 
#1 

RTNOPN 


READ 
OPEND 
LSTPASS 


#6 
BUFRNGE 
(FMPL),Y 
BUFRNGE 


BUFRNGE+1 
(FMPL),Y 





;‚Endmarker muß folgen 


‚Datei gespert? 

‚ nein, dann weiter 
;‚Endmarker? 

; ja, dann überschreiben 
‚zweiter Puffer 
;"UNLOCK" 

‚aufschließen 

; und löschen 
;Endmarker? (Status 4) 

;‚ nein, dann neuer Name 
‚zweiter Puffer 

; "DELETE" 

‚existierende Datei löschen 
; und nochmal versuchen 
‚neue Zieldatei 
‚Endmarker muß folgen 
‚nochmal versuchen 


‚Endmarker? 
‚ nein, dann Fehler 


;"ILLEGAL CALL" 
‚Fehlermeldung 


‚noch nicht letzter Durchgang 
‚Zieldatei noch geschlossen 


;Pufferumfang 
; berechnen 


‚negativ, dann Fehler 
;Mindest-Seitenzahl? 
; ja, dann weiter 
;'"OUT OF MEMORY" 


;‚Quell- und Zielname einlesen 
;Quell- und Ziellaufwerk 
; gleich? 


;(C=]1) 


;= ß, d.h. gleiches Laufwerk 


;Neuzuweisung 

‚ verhindern 

‚erster Puffer 

‚Datei eröffnen 

;kein Fehler, dann weiter 
;"FILE NOT FOUND" 

‚Index auf Dateityp 
‚Dateityp 

; (Lockbit löschen) 

;‚ eintragen 


positionieren 


‚erster Puffer 
‚auf Null positionieren 
‚weiter mit einlesen 


schubweise lesen 


‚ein Laufwerk? 
‚ nein, dann weiter 
;"INSERT SOURCE DISK" 


;kein "END OF DATA" 

‚ansonsten letzten Schub 

;‚ markieren 

‚Index auf Pufferlänge 

‚Differrenz zwischen 

; vorgegebener Pufferlänge 

; und dem Restpuffer 

; gibt die Länge des letzten 
Durchgangs an 
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174 
175 
176 
177 
178 
179 
189 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
209 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
A 
212 
213 
214 
215 
216 
217 
218 
219 
229 
221 
222 
223 
224 
225 
226 
227 
228 
229 
239 
231 
232 
233 
234 
235 
236 
237 
238 
239 
249 
241 
242 
243 
244 
245 
246 
247 
248 
249 
259 
251 
252 
253 
254 
255 
256 
257 
258 
259 
269 
261 


OPEND 


OPEND1 


OPEND2 


OPEND3 


RTNOPN 


POSD 


STA BUFRNGE+1 


LDA 
BNE 
LDA 
BNE 


LDA 
BNE 
LDX 
STX 
LDX 
JSR 
LDY 
LDA 
BPL 
LDA 
BNE 
TXA 
BNE 
LDA 
STA 
JMP 


LDX 
STX 


JSR POSITION 


* Zieldatei eröffnen 


SAMESD ‚zwei Laufwerke? 
OPEND1 ; ja, dann weiter 
#2 ;"INSERT DESTINATION DISK" 
RTNOPN 
OPNFLG ‚Zieldatei schon eröffnet? 
WRTBUF ‚ ja, dann weiter 
+9 ;Neuzuweisung 
ALLOCATE ;‚ möglich 
#14 ‚zweiter Puffer 
OPEN 
#$7 ‚Index auf Dateityp 
(FMPL),Y ‚Datei gesperrt? 
OPEND3 ‚nein, dann weiter 
#3 ;"FILE LOCKED" 
RTNOPN ‚unbedingt 
;Fehernumner <> ß, 
POSD ; d.h. Datei existierte nicht 
+4 ;"FILE ALLREADY EXISTS" 
STATUS 
EXIT ;Meldung an Benutzer 


+14 
OPNFLG 


* Zieldatei schreiben 


WRTBUF 


* Zieldatei schließen, 


CLOSED 
ENDCOPY 


DONE 


JSR 
LDA 
BNE 
JMP 


JSR 
LDA 
STA 
RTS 


——— —- —-  — — — 


WRITE ;Puffer schreiben 
LSTPASS ‚letzter Durchgang? 
CLOSED ; ja, dann fertig 
RDBUF ‚ ansonsten nächster Schub 
fertig 

CLOSE 
+9 
STATUS ‚Neustart möglich 

allgemeine Unterprogramme ---——--—--- x 


* Zieldatei positionieren 


‚zweiten Puffer 
‚ als eröffnet markieren 
‚auf Null positionieren 


* Dateiname(n) auswerten 


GETNME 


COPYNME 


GETDST 


GETNMEl 


SYNERR1 
ILLQERR1 
CHKLET 


CHRLOOP 


CHRLOOP1 


COMLOOP 


LDX 
JSR 
LDX 
LDA 
STA 
DEX 
BPL 
JSR 
BEQ 
JSR 
LDX 


STX 
JSR 
JSR 
STA 
LDX 
LDY 
JSR 
BCS 
BNE 
CcPX 
BNE 
JMP 
JMP 
JSR 
BCC 
BCS 


JSR 
BCS 
BEQ 
ORA 
STA 
CPY 
BCC 
JSR 
BCS 


+9 ‚ersten Namen überprüfen 
GETNMEl 
#29 
PRIMNME,X ;ersten Namen 
SECNME,X ;‚ in zweiten Puffer 

‚ eintragen 
COPYNME 
CHRGOT ‚zweiter Name? 
DONE ; nein, dann fertig 
CHKCOM ;Komma muß folgen 
#30 ‚zweiten Namen überprüfen 
SDINDX ‚retten 
FRMEVL ‚Ausdruck auswerten 
FRESTR ‚String wieder freigeben 
LEN ‚Stringlänge eintragen 
SDINDX ‚Index auf 1. oder 2. Puffer 
#-1 ‚Index auf String 
GETCHR ‚erstes Zeichen holen 
SYNERRI1 ;leerer String verboten 
CHKLET ;kein Komma, dann weiter 
#1 ;X = 1, d.h. erster Name 
COMMA ;Komma bei Zielname erlaubt 
SYNERR NSYNTAZL" 
ILLQERR ; "ILLEGAL QUANTITY" 
ISLETC ‚prüfen ob Buchstabe 
SYNERR1 ;kein Buchstabe -> Fehler 
CHRLOOP1 ‚ ansonsten eintragen 
GETCHR ‚nächstes Zeichen 
EOSTR ; (Ende erreicht) 
COMMA ; (Komma gefunden) 


+710000000 ;Bit 7 = 1 


PRIMNME-1,X ; (-1l wegen INX bei GETCHR) 
#29 ‚maximale Länge erreicht? 
CHRLOOP ;‚ nein, dann weiter 

GETCHR ;‚weitersuchen bis Komma 
EOSTR ;‚ oder Stringende 


COMMA 


COMMAl 


COMMA2 


NOTDRVE 


GETPAR 


EOSTR® 


EOSTR 
EOSTR1 


RTNGN 


GETCHR 
GETCHR1 


RTNGC 


STA 
JSR 
BCS 
BEQ 
BCC 


LDY 
BEQ 
LDX 
LDA 
CPY 
BCS 
STA 
INX 
INY 
BNE 
RTS 


INX 
INY 
CPY 
BCS 
LDA 
CMP 
CLC 
RTS 


COMLOOP 


YREG 
XREG 
SDINDX 
COMMA2 
#14 
GETCHR1 
#'D' 
NOTDRVE 
#3 
GETPAR 
#'5! 
SYNERR1 


+8 

ACC 
GETCHR1 
SYNERR1 
#'0'-1 


ILLQERR1 


ACC 


ILLQERR1 
PRIMDRVE,X 


GETCHR1 
EOSTR® 
COMMAl 
SYNERR1 


YREG 
RTNGN 
XREG 
+! " 
+30 
RTNGN 


PRIMNME-1,X 


EOSTR1 


LEN 
RTNGC 


(INDEX),Y 


#1, ! 


‚Indexe 

‚ retten 

‚Index auf Slot oder Drive 
;ßÖ, dann weiter 

‚ ansonsten auf Zielparameter 
‚"D" oder "S" muß folgen 


;‚Maximalwert + 1 


‚weder "S" noch "D" 
‚nach Drive kommt Slot 
;‚Maximalwert + | 


‚Parameter 

; muß folgen 

‚aus ASCII wird Hex 

;® ist verboten 

‚mit vorgegebenem Wert 
;‚ vergleichen 
;Parameter eintragen 


;‚C-Flag geht vor Z-Flag 
‚noch ein Komma -> weiter 
;kein Ende -> Fehler 


;wenn ®, wurde kein 2. Namen 
‚ angegeben -> belassen 
‚altes Register (vor COMMA) 
‚Rest mit Blanks 

;‚ auffüllen 


‚Index 

; erhöhen 

‚Ende erreicht? 

‚ ja, dann zurück 
‚Zeichen holen 

;Z = 1 bei Komma 


;‚C = 1 bei Stringende 


*- File-Manager-Aufrufe -—x* 


READ 


WRITEI 
WRITE2 


LDY 
LDA 
STA 
INY 
LDA 
STA 
LDX 
LDA 
BNE 


LDX 
LDY 
BNE 
TXA 
BNE 
RTS 
DEX 
DEY 
TYA 
LDY 
STA 
INY 
TXA 
STA 
LDX 
LDA 
PHA 
INY 
LDA 
STA 
INY 
LDA 
STA 
PLA 
BNE 


+$6 
BUFRNGE 


(FMPL),Y 


BUFRNGE+1 
(FMPL),Y 


+$8 
#$3 
RDWRT 


BUFRNGE+1 


BUFRNGE 
WRITE2 


WRITEL 


#6 


(FMPL),Y 


(FMPL),Y 
#14+8 
+54 


MEMSIZE 


(FMPL) ,Y 


‚Index auf Pufferlänge 


;Pufferlänge 


‚ eintragen 


‚erster Puffer 
;"READ"' 


;beim Schreiben muß 


; die Länge des Puffers 
; um l erniedrigt werden 
;Länge = ß, 

; -G,H, 

; fertig 


‚eintragen 
‚Index auf Pufferlänge 


‚zweiter Puffer 
‚'""WRITE" 


;‚Pufferadresse 


;‚ eintragen 


MEMSIZE+1 
(FMPL),Y 
;‚Befehlsnummer 


CALLFM1 ‚unbedingt 
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POSITION LDY 
LDA 
POSN1 STA 
INY 
CPY 
BNE 
LDA 
BNE 


OPEN LDA 


+$2 
+9 
(FMPL),Y 


#+$6 
POSN1 
#+$A 
CALLFMl 


#$1 


‚Index auf Record-Werte 
‚Länge und Offset 
; zu Null 


‚insgesamt 4 Bytes 


‚"POSITION" 


; "OPEN" 


* eigentlicher Aufruf des FM 


CALLFM LDY 
BNE 


CLOSE LDX 
LDA 
CALLFMl LDY 
CALLFM2 PHA 
SETFMPL LDA 
STA 
INX 
INY 
CPY 
BNE 
LDY 
PLA 
STA 
INY 
LDA 
STA 
LDX 
JSR 
LDY 
LDA 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 
JSR 
STA 
LDA 
BNE 
NOTDF CMP 
BNE 
LDA 
RTNCFM TAX 
RTS 
WPERR LDA 


+54 
CALLFM2 


+14+8 
+$2 
#$C 


PLTABLE,X 
(FMPL),Y 


+$12 
SETFMPL 
+9 


(FMPL) ,Y 


#$2 
(FMPL),Y 
ALLOCATE 
FM 

#$A 
(FMPL),Y 
+4 

WPERR 

+8 

EXIT® 

#9 

NOTDF 
CLOSE 
STATUS 
#9 

EXIT® 
+19 
RTNCFM 
+4 


+7 


‚ab Volume eintragen 
‚unbedingt 


‚zweiter Puffer 

;"CLOSE" 

‚ab Pufferadressen eintragen 
;Befehlsnummer merken 
‚Tabelle 

; übertragen 


‚Ende erreicht? 
‚ nein, dann weiter 
‚Index auf Befehlsnummer 


‚Index auf Subcode 
;immer (Bereich ohne POS.) 


‚Neuzuweisung? 
‚File-Manager via Page 3 
;‚Fehlercode 

; holen 
‚schreibgeschützt? 


‚I/0-Fehler? 


‚Diskette voll? 

‚nein, dann weiter 
‚ansonsten Datei schließen, 
; Neustart einstellen 

; und Fehlermeldung 

;‚ an Benutzer 

‚Datei gesperrt? 


;"FILE LOCKED"" 
‚Zero-Flag aktualisieren 


; "WRITE PROTECTED"" 


4-———————————— Fehlerbehandlung 


EXIT TSX 
INX 
INX 
TXS 
EXIT TAX 
BIT 
BPL 
JMP 
COPYERR JSR 
LDA 
JSR 
TXA 
ORA 
JSR 


PLTABLE 
DFB 

PRIMDRVE DS 

PRIMSLT DS 
DA 
DS 
DA 
DA 
DA 


DFB 
SECDRVE DS 
SECSLT DS 
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ERRFLG 
COPYERR 
HANDLERR 
CRDO 

E JE 3 
OUTDO 


#g"" 
OUTDO 
ERRENT 


Tabellen, 


$9 

1 

2 
PRIMNME 
2 
PRIMFMWA 
PRIMTSL 
PRIMDAT 


$9 
1 
1 


;‚Return-Adresse 
;‚ vom Stack 


;‚ERRorFLaG gesetzt? 
‚ nein, dann weiter 
;""ONERR GOTO'" behandeln 


;Fehlernummer 


ausgeben 


‚weiter mit Fehlerbehandlung 
Variablen, Puffer 


;FMPL-Tabellen 

;Pos.. $4 Volume-Nummer 
;Pos. $5 Drive-Numnmer 
;Pos. %$6 Slot-Nummer 
;Pos. $8 1. Namensadresse 
;Pos. $A Fehlercode 

;Pos. $C Arbeitsbereich 
;Pos. $E TSL-Puffer 

;Pos. $1® Puffer-Adresse 


;Pos. %$4 Volume-Nummer 
;Pos. $5 Drive-Nummer 
;Pos. %$6 Slot-Numnmer 





FILETYP l ;Pos. %$7 Datei-Typ 
DA _SECNME ;Pos. $8 2. Namensadresse 
DS 2 ‚Pos. $A Fehlercode 
DA SECFMWA ;Pos. $C Arbeitsbereich 
DA SECTSL ;Pos. $E TSL-Puffer 
DA SECDAT ;Pos. $1® Puffer-Adresse 


STATUS DS ;‚Aufrufstatus 

OPNFLG DS ;<> ®, wenn Zieldatei eröffnet 
LSTPASS DS ;:<> ® bei letztem Schub 

SAMESD DS ;®, wenn gleiche Laufwerke 
ALLOCATE DS ‚Flag für Dateineuzuweisung 
PRIMNME DS ;Puffer für ersten Namen 
SECNME DS ;Puffer für zweiten Namen 
PRIMFMWA DS ‚File-Manager-Arbeitsbereich 
SECFMWA DS ;‚ umfaßt 45 Bytes 

PRIMTSL DS ;Track/Sector-List-Puffer 
SECTSL DS ; umfaßt einen Sektor 
PRIMDAT ;Quell-Datenpuffer 

SECDAT ‚Ziel-Datenpuffer 


Bytes 





ProDOS-Begleitdiskette 


zu „ProDOS für Aufsteiger“, Band 2 
Soeben erschienen, DM 28,- 


Diese Begleitdiskette ist mehr als nur eine Diskette zum 
Buch, denn sie enthält neben etwa 20 Demoprogram- 
men eine ganze Reihe selbständiger und sofort einsatz- 
fähiger Programme, die eine wichtige Ergänzung zum 
Betriebssystem darstellen, z. B.: 


Dateileseprogramme zum Dump von Textfiles und 
anderen Dateien in ASCII- und Hex-Darstellung 
Dateikopierprogramm zum Kopieren beliebig großer 
Dateien (PROFID) 

Diskettenkopierprogramme für 1- und 2-Drive- 
Besitzer 

Formatierungsprogramm 
Diskettenvergleichsprogramm 
Bad-Block-Programm 
DOS-3.3-Konvertierungsprogramm 
Blockeditor-Utility 

Directory-Utilities 
Zahlenarray-BSAVE/BLOAD-Utility 


Alle Programme laufen unter allen ProDOS-Versionen 
und können auch von Nicht-Programmierern problem- 
los eingesetzt werden. 


Hüthig Software Service 
Postfach 102869 - 6900 Heidelberg 1 


19 





Das Booten unter ProDOS dauert etwa 
10 Sekunden. Das nachfolgende Pro- 
gramm vereinigt die zwei Systemdatei- 
en PRODOS und BASIC.SYSTEM zu ei- 
ner einzigen bootfähigen Gesamtdatei 
namens PBASIC, die nach PR+#6 in we- 
niger als 6 Sekunden eingeladen wird. 
Wer unter ProDOS häufig Programme 
deshalb diese Fastboot-Routine, die 
bei allen bisher bekannten PRODOS- 
(1.0.1, 1.0.2, 1.1.1) und BASIC-SYSTEM- 


Versionen (1.0, 1.1) funktioniert, zu 


durch Neubooten wechseln muß, wird 
schätzen wissen. 
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ProDOS-Fastboot 


oder wie man ProDOS in 
nach einer Idee von Ulrich Stiehl 


von Arne Schäpers 
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1. Urlader 


Über den Boot-Prozeß von ProDOS ist 
bereits detailliert geschrieben worden. 
Wer es ganz genau wissen möchte, kann 
darüber in der „ProDOS-Analyse“ nachle- 
sen. Hier folgen deshalb nur die logischen 
Stufen des Bootvorgangs bis zum Start 
des Hello-Programms „STARTUP: 


1. Das Programm auf der Controller-Karte 
liest den Sektor O auf Spur O nach $0800 
in den Speicher und springt nach $0801. 
Das soeben geladene Programm (,„Urla- 
der“) benutzt das Programm auf der Con- 
troller-Karte, um die zweite Hälfte des 
Blocks O0 (Spur O0, Sektor 2) zu lesen. 
Damit ist der Urlader vollständig im Spei- 
cher. 

2. Der Urlader lädt das Volume-Directory 
(Blocks 2-5) und sucht es nach dem Ein- 
trag „PRODOS“ ab. 

3. Dann lädt er die Datei PRODOS ab 
$2000 in den Speicher und springt nach 
$2000. Das Programm PRODOS reloziert 
sich selbst in die zwei Speicherbanks der 
Language-Card. 

4. Das Programm PRODOS liest nun er- 
neut das Volume-Directory ein und sucht 
es nach der ersten Datei mit der Namens- 
endung „.SYSTEM" ab. 

5. Das „.SYSTEM“-Programm wird ab 
$2000 in den Speicher geladen und von 
dort gestartet. 

6. Wenn es sich um das BASIC.SYSTEM 
handelt, so passiert danach folgendes: 
Das Programm kopiert (nicht reloziert) sich 
selbst in den Speicherbereich $9A00- 
$B9Y9FF und sucht nach einem CLEAR 
PREFIX und ONLINE die Datei „START- 
UP“ über GET FILE INFO, d.h. das Volu- 
me-Directory wird abgesucht, nunmehr 
aber über MLI-Befehle und nicht durch 
Laden der Volume-Directory-Blocks. Wird 
STARTUP gefunden, so kopiert das Pro- 
gramm die Befehlszeile „-STARTUP“ in 
den Input-Puffer. Es folgt ein Kaltstart des 
BASIC.SYSTEMSs über $BEO00. 

Dieser Boot-Prozeß ist so komplex, daß 
jeder graue Haare bekommt, wenn er ihn 
modifizieren will. 


2. Die Idee 


Wer häufig Programme wechselt, muß 
häufig booten. Dies dauert jedoch unter 
ProDOS (ca. 9-10s) länger als unter DOS 
3.3 (ca. 4-5s), weil die ProDOS-System- 
dateien größer sind. Deshalb ist es wün- 
schenswert, diesen Prozeß zeitlich abzu- 
kürzen. 
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Zuerst soll geschildert werden, was man 
aus dem Boot-Prozeß eliminieren kann: 

1. Die Gerätekonfiguration, d.h. Speicher- 
größe, Zusatzkarten usw. sind immer 
gleich. Ein Test ist daher nach einer ein- 
maligen Installation nicht mehr nötig. Da- 
mit entfällt auch der ohnehin größtenteils 
nutzlose Relokator von PRODOS. 

2. Das insgesamt dreimalige Lesen des 
Volume-Directory ist auf den Befehl 
„"PRODOS“ bzw. „-BASIC.SYSTEM“ 
zurückzuführen. Da über dieses Komman- 
do die Programme direkt aufgerufen wer- 
den können, dürfen sie nicht auf die vom 
Urlader bereits gelesenen Directory- 
Blocks zurückgreifen. Bei einem Boot „in 
einem Rutsch“ muß das Directory nur ein- 
mal gelesen werden. 

3. Wenn man jetzt noch den Urlader dahin- 
gehend modifiziert, zumindest einen Teil 
des Systems direkt an die endgültige 
Speicheradresse zu lesen, entfällt deren 
Verschieberoutine mit der Folge, daß bei 
einem Reboot ein wesentlich größerer 
Speicherbereich unversehrt bleibt. 


Unter Berücksichtigung dieser Besonder- 
heiten wurde ein Programm mit den fol- 
genden Charakteristika geschrieben: 

1. Es ist lauffähig unter allen bekannten 
Versionen (1.0.1, 1.0.2, 1.1.1). 

2. Man hat 5 freie Blocks mehr auf der 
Diskette. 

3. Die Ladezeit von PR#6 bis zur Meldung 
des BASIC.SYSTEMs wurde fast halbiert. 
Sie beträgt nun ca. 5.6s anstelle von ca. 
10s. 

4. Der bei einem Reboot unzerstörte Spei- 
cherbereich erstreckt sich von $1400 bis 
$61FF, also ein zusammenhängendes 
Stück von mehr als $4800 Bytes. Dies 
dürfte für die meisten Programme wäh- 
rend der Entwicklungsphase ausreichend 
sein. 

5. Alle anderen Eigenschaften des Boot- 
vorgangs sind unverändert, d.h. die Datei 
STARTUP ist nach wie vor fakultativ: Sie 
wird ausgeführt, wenn sie auf der Diskette 
gefunden wird, ansonsten erfolgt nur ein 
Kaltstart des BASIC.SYSTEMSs. Das Präfix 
und die „zuletzt benutzte Unit“ (= Slot/ 
Drive) in der System Global Page sind 
Korrekt gesetzt. 


3. Einschränkungen 


Die neu angelegte Fastboot-Diskette sollte 
nur auf demjenigen Gerät eingesetzt wer- 
den, auf dem sie erzeugt wurde. Andern- 
falls können Probleme auftreten. Bei- 
spiele: 
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— Generierung auf einem System mit Uh- 
renkarte und Booten auf einem System 
ohne Uhrenkarte oder mit einer Uhrenkar- 
te in einem anderen Slot. 

— Generierung auf einem System mit 
RAM-Disk und Booten auf einem System 
mit 64K oder umgekehrt: Im ersten Fall 
führt das Ansprechen der vermeintlichen 
RAM-Disk zu einem unverhofften BRK, im 
zweiten Fall wird eine eventuell installierte 
RAM-Disk-Routine (auf der 64K-Karte) 
zerstört. 


Ein weiterer Nachteil soll nicht verschwie- 
gen werden: Ein „BRUN PBASIC“ oder 
„-PBASIC“ führt zu einem katastrophalen 
Absturz, weil das Programm an die falsche 
Startadresse geladen wird. Ein „BRUN 
PBASIC,A$6400“ hilft nicht weiter, denn 
hier bricht ProDOS mit einer Fehlermel- 
dung ab, weil dabei beim Ladevorgang das 
BASIC.SYSTEM überschrieben werden 
würde. Man muß also die PBASIC-Disket- 
te immer mit PR#6 oder allgemein PR&#s 
starten. Die Fastboot-Routine ist damit 
nicht für Festplatten gedacht. 


4. Bedienungsanleitung 


Eine auf das reine Handling beschränkte 
Schritt-für-Schritt-Kurzanleitung finden 
Sie vor dem Listing des Programms 
MKBOOT.BAS. Der Ablauf der Erstellung 
von PBASIC ist folgender: 

Nach Angabe der Nummer des Slots, von 
dem aus PBASIC in Zukunft gebootet wer- 
den soll, wird das gesamte System aus 
den verschiedenen Banks (LC Bank 1, 
Bank 2 und 64K-Karte) zu einem Block 
zusammenkopiert, der dann auf der Ziel- 
diskette unter dem Namen PBASIC ge- 
speichert wird. 

Danach wird der Urlader auf dieser Disket- 
te so modifiziert, daß nicht mehr PRO- 
DOS, sondern PBASIC im Volume-Direc- 
tory gesucht wird. Außerdem lädt der Urla- 
der nicht mehr ab $2000, sondern ab 
$6400 in den Speicher. Damit wird das 
gesamte BASIC.SYSTEM direkt in den 
späteren Bereich übertragen. Der File 
PBASIC enthält noch ein kurzes Start-Pro- 
gramm, mit dem das MLI, REBOOT und 
der RAM-Disk-Treiber in die entsprechen- 
den Banks bzw. in die 64K-Karte AUX 
kopiert werden. Danach wird von PBASIC 
aus die Routine im Urlader, die das gela- 
dene Volume-Directory vorher nach 
„PBASIC“ abgesucht hat, so modifiziert, 
daß bei einem zweiten Durchlauf die Exi- 
stenz der Datei „STARTUP“ überprüft 
wird. Wenn sie vorhanden ist, so wird der 
Befehl „-STARTUP“ simuliert. Ansonsten 
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erfolgt nur ein Kaltstart des BASIC.SY- 
STEMs über $BEO0. 


5. Technische Einzelheiten 


MKBOOT.OBJ stellt folgende Bereiche 
für PBASIC zusammen: 

$8F00-$8FFF: System Global Page 
$8E00-$8EFF: BASIC Global Page 
$6A00-$8DFF: BASIC.SYSTEM. Die letz- 
ten $0400 Bytes sind der Pufferbereich 
des BASIC.SYSTEMs und damit entbehr- 
lich. 

$3A00-$69FF: MLI, $0600 Bytes sind Puf- 
ferbereiche, die sich aber je nach Version 
in den Adressen unterscheiden. 
$3700-$39FF: REBOOT von $D100-D3FF 
aus der Bank 2 der LC 

$3500-$36FF: RAM-Disk-Driver aus 
$0200-$03FF aus der 64K-Karte, bei 64K- 
Maschinen aus den unteren 64K („Müll“) 
$34E0-$34FF: Reset, BRK und NMI-Vek- 
toren von $O3EO-$O3FF 

DOBOOT.OBJ wird an den Anfang von 
PBASIC gesetzt, d.h. belegt den Bereich 
$3400-34DF. 


Der Urlader lädt PBASIC ab $6400 in den 
Speicher. DOBOOT.OByJ ist deshalb nur 
ab dieser Adresse lauffähig! 

Hier werden dann das MLI, die REBOOT- 
Routine und der RAM-Disk-Driver zurück- 
kopiert. Der RAM-Disk-Driver muß dabei 
vor den Reset-Vektoren kopiert werden, 
weil er sonst bei 64K-Maschinen die Vek- 
toren in den unteren 64K überschreiben 
würde. 

Nachdem alle Verschiebevorgänge abge- 
schlossen sind, wird es kompliziert: 

Als nächstes muß Applesoft kaltgestartet 
werden. Ein „JSR $E000“ wäre zwecklos, 
weil der Stack innerhalb der Initialisie- 
rungsroutine neu gesetzt wird. Deshalb 
bleibt nur der Umweg über die COUT- 
Vektoren: Wenn Applesoft das Prompt U 
bzw. ] (= $DD) drucken will, wird es über 
GETBAS abgefangen, d.h. COUT springt 
zu GETBAS als vermeintlicher Ausgabe- 
routine, nachdem CSWL (= $0036- 
$0037) entsprechend gesetzt worden 
sind. (Interessanterweise druckt Applesoft 
das erste Return vor dem Prompt, bevor 
die Initialisierung vollständig beendet ist. 
Deshalb muß auf $DD getestet werden, 
bevor es innerhalb von DOBOOT.OBJ 
weitergeht.) 


In GETBAS werden jetzt für COUT die 
Vektoren des Monitors ($FDFO) ersetzt, 
HIMEM und FRETOP ($0070 und $0074) 
auf $9600 (dezimal 38400) eingestellt so- 
wie das Trace-Flag $00F2 für das 
BASIC.SYSTEM gesetzt. 
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Als nächstes wird die Suchroutine inner- 
halb des Urladers so umgebaut, daß nicht 
mehr PBASIC, sondern STARTUP ge- 
sucht wird. Der Pointer innerhalb der gela- 
denen Directory-Blocks ($4B) wird wieder 
auf den Directory-Anfang gesetzt, und der 
Vergleich darf nicht mehr Storage-Type 
(Speichertyp) und Namenslänge ein- 
schließen, weil STARTUP auch einen Sto- 
rage-Type gleich 1 haben darf. Die Ver- 
gleichsschleife endet deshalb nicht mehr 
mit „BPL“, sondern mit „BNE“. Dabei 
muß aber geprüft werden, ob der gefunde- 
ne File-Eintrag nicht gelöscht ist: Das er- 
ste Byte (Storage Type + Namenslänge) 
wird separat geladen und das nachfolgen- 
de „BIT $D4“ wird zu „BEQ nicht gleich“. 
Der Exit aus der Suchroutine wird eben- 
falls modifiziert: Bei „gefunden“ folgt RTS 
mit Carry clear, bei „nicht gefunden“ folgt 
RTS mit Carry set, also nicht „x** UN- 
ABLE TO LOAD PRODOS xx“. 

Als letztes wird der Dateiname „START- 
UP“ sowohl in die Suchroutine als auch 
nach $0200 (Input-Puffer für BASIC) ko- 
piert. Danach folgt der Aufruf der Suchrou- 
tine. 

Wenn Ihnen das noch nicht kompliziert 
genug war, beschäftigen Sie sich mit dem 
nächsten Schritt: 

$0038-$0039 sind mit SETIOV auf die 
Routine FAKECR gesetzt worden, d.h. 
wenn das BASIC.SYSTEM nach dem 
Prompt zu ersten Mal einen Input erwartet, 
wird über GETLN nicht GETKEY, sondern 
FAKECR als vermeintliche Input-Routine 
aufgerufen. 

Innerhalb von FAKECR werden zuerst die 
Monitor-Vektoren in $0038-$0039 ge- 
setzt, d.h. FAKECR hängt sich selbst beim 
ersten Aufruf ab. 


Wir sind aber momentan noch innerhalb 
der Installationsroutine DOBOOT.OByJ: 
War die Suche nach STARTUFP erfolgreich, 
wird ein Kaltstart des BASIC.SYSTEMs 
durchgeführt. Beim ersten Aufruf von 
GETKEY produziert FAKECR ein Return 
und kehrt, nachdem es sich selbst abge- 
hängt hat, mit X=8 und A=$8D=Return 
zurück. Das BASIC.SYSTEM „glaubt“ 
jetzt, daß hier jemand nach 8 Zeichen Ein- 
gabe auf die Return-Taste gedrückt hat. Im 
Input-Puffer steht noch „-STARTUP“ vor 
dem Return, und genau dieses Komman- 
do führt das BASIC.SYSTEM dann auch 
aus. 

Wenn STARTUP nicht gefunden wurde, 
wird FAKECR vor dem Kaltstart des BA- 
SIC.SYSTEMs einmal aufgerufen, hängt 
sich dabei selbst ab, und die Werte von A 
und X werden ignoriert, d.h. wenn das 
BASIC.SYSTEM danach GETLIN aufruft, 


wird bereits beim ersten Mal ein Zeichen 
von der Tastatur gelesen. Der Index (X- 
Register) ist 0, und die Zeichenfolge 
„"STARTUP“ im Input-Puffer wird mit den 


eingegebenen Zeichen überschrieben. 
[ 


MKBOOT.OBJ Hex-Dump 


BSAVE MKBOOT.OBJ, A$3000, L205 
$3009: AC B6 30 AC 81 30 20 56 
$3008: 30 A9 BF 85 Bl AY 8F 85 
$301W: B3 A2 26 20 BB Bl A9Y FF 
$3018: 85 Bl A2 30 2C 8B CO 20 
$3020: B® Bl A9 D3 85 Bl A2 P3 
$3028: 20 83 CO 20 BB P1 2C 82 
$3030: CO A9 B3 85 Pl A2 2 EE 
$3038: Bl Bl 20 BO Bl CE Bl Pl 
$3040: A9 03 85 Pl A2 Bl AB Ed 
$3048: 20 BB B1 A2 03 A9Y BO 9D 
$3050: 38 SE CA 10 FA 6® A® 1B 
$3058: B9 65 30 99 FF BB 88 DP 
$3060: F7 84 BO 84 B2 60 8D P2 
$3068: CO 8D BA CO Bl BB 91 92 
$3070: C8 DB F9 C6 B1 C6 B3 CA 
$3078: DO F2 8D 2 CO 8D PA Co 
$3080: 60 AD FE ®2 8D AA 30 20 
$3088: Bd BF 80 A9Y 30 DO 16 A2 
$3090: BB BC AF 30 BD BE 39 99 
$3098: BE 90 ES E® BF 90 F2 29 
$30Aß: BO BF 81 A9 30 8D FF 92 
$30A8: 6D 3 BO MO 90 DD DO HD 
$30B9: B1 02 03 PA 05 BB 1D 49 
$30B8: 45 46 47 48 49 AA Bl 4A 
$30C9: 
$3008: 


24 DA 18 EA 06 62 64 59 
42 41 53 49 43 O0 00 BB 


DOBOOT.OBJ Hex-Dump 


BSAVE DOBOOT.OBJ, A$64ß9, L222 
$64Aß0: 20 AF 64 AY 99 85 Pl A2 
$64ß8: 30 2C 8B CO 2C 8B CO A9 
$641ß: FF 20 B0 Bl A2 93 2C 83 
$6418: CO 2C 83 CO A9Y D3 29 BB 
$6420: Pl AY9 EE 8D PP DB 2C 82 
$6428: CO A2 92 EE Bl Bl A9Y 93 
$6430: 20 00 Bl CE Bl Bl A2 Bl 
$6438: AB Eß A9 B3 20 BO Bl A2 
$6449: 03 BD AC 64 95 36 CA 19 
$6448: F8 AC BB EB 5D 64 50 64 
$6450: A9Y9 1B 85 38 A9Y FD 85 39 
$6458: A2 B8 A9Y9 8D 6ß C9Y DD DP 
$6460: FB A9 FO 85 36 A9Y FD 85 
$6468: 37 A9 96 85 70 85 74 A9 
$6470: A5 85 F2 20 2F FB 20 58 
$6478: FC A2 07 BD D6 64 9D GB 
$6480: 02 29 7F 9D 92 09 CA 19 
$6488: F2 A9 AD 8D BB B2 A9 BC 
$6490: 85 AB A9 DO 8D BC 8 A9 
$6498: FO 8D CO B8 AY 60 8D C3 
$64Aß: BB 8D FF 8 20 92 B8 90 
$64AB: W3 20 50 64 AC BP BE AB 
$64Bß: 17 B9 BE 64 99 FF PB 88 
$64B8: DB F7 84 BB 84 P2 60 8D 
$6AcQ: BA CO 85 B3 Bl BB 91 92 
$64C8: C8 D® F9 C6 Pl C6 P3 CA 
$64Dß: DO F2 8D BA CO 60 97 DZ 
$64D8: DA Cl D2 DA D5.DP BB dB 
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ccp ddatentechnik 


640 KByte-Drives für den Apple //c!! 


@ 5'/4- od. 31/-Zoll-Format (Teac FD55/35-F) 

@ FD55-F umschaltbar auf 35/40 Track 

@® Anschluß an die externe Laufwerkbuchse 

® Durch Einbauplatine (kein Löten) 640 KByte im Direktzugriff 

@ Einfache Anpassung für DOS 3.3, UCSD-Pascal und PRODOS 
durch menügeführten Patch 

@® Anpassung von CP/M in Verbindung mit einer Z 80-Zusatzplatine 
in Vorbereitung 

® anschlußfertig im Gehäuse . . . . . 2... . DM 1090,— 


Festplatten für Apple Il (//e) 


@ 5'/4 Zoll-Format (Slimline) 

© Booten direkt von der Festplatte in DOS 3.3, UCSD-Pascal, 
PRODOS und CP/M 2.2 / 3.0 

@ Gemischtbetr. mit 35/40/80/160 Track-Drives 

@ Copy- und Install-Programme im Lieferumfang 

@ Umfangreiches Manual 

® z.B. 12 MB form. incl. Netzteil u. Contr., 
anschlußfertig an Ihren Apple . . . 2. ....... DM 3698,— 


640 KByte-Drives für Apple Il (//e) 


@ 5'/4- od. 3/2-Zoll-Format (Teac FD55/35-F) 

@ FD55-F umschaltbar auf 40 Track (Apple kompatible) 

@ Installationssoftware für DOS 3.3, UCSD-Pascal, CP/M 2.2, 
CP/M 2.23 (60K), PRODOS, AP22, ALS CP/M+ 

@® Umfangreiches Handbuch 

@ Anschlußfertige Auslieferung incl. Contr. und 2 Drives 

@ Diskstation 55ll (2 Teac FD55-F, 1.22MB) . . . DM 1598,— 

@ Diskstation 35ll (2 Teac FD35-F, 1.2MB) . . . DM 1580,- 


80 Zeichen + 64 K für Apple //e 


® und jetzt hinsetzen DM 158,— 































Jetzt neu von SYBEX 


Schnell und William F. Luebbert 
effizient Was ist wo 


im Apple 
programmieren | APP 


® Best.-Nr. 3098 
mit ISBN 3-88745-098-1 (1985) 


Apple IvVII+/lle PM 58-/sFr53,40 / 5452, — 


Besitzer eines Apple Il, II+ oder 
Ile erhalten eine systematische 
Arbeitshilfe, um schnelle und 
elegante Programme auf ihrem 
Rechner zu schreiben. Der Autor 
erläutert die Bedeutung von 
2000 wichtigen Speicheradres- 
sen; dazu alle wichtigen ROM- 
Routinen. Für den schnellen 
Zugriff sind Routinen und Spei- 
cheradressen in alphabetischer 
und numerischer Reihenfolge 
sortiert. 
Viele Apple-Routinen, die Sie in 
den eigenen Programmen leicht 
u verwenden können, helfen 
Wiliom F. Lyebbert Ihnen, Ihre BASIC-Programme 
zu beschleunigen und bei der 
Assemblerprogrammierung viel 
Arbeit und Zeit zu sparen. 


>, überall, wo es gute 
BP Computerbücher gibt 


Apple 


two im 





FF? ade 


& 


Alles für Ihren Apple 


Info bei: 


ccp-datentechnik 


Herderstraße 12 — 2000 Hamburg 76 
Telefon 040/225676 








APPLE - DISKETTEN LAUFWERKE - APPLE 


” r 2 A . i IBM *'* KOMPATIBEL ****** IBM °'* KOMPATIBEL 

Original Disk II m. Controller + DOS3.3+ Hdbuch DM 995,— 100% Apple-kompatibel 6 Mon. Garantie Reparaturservice Alle Teile unterliegen einer sorgfältigen Endkontrolle und wir 
Original Disk Il (2. Laufwerk) DM 825,— bei Verwendung des übernehmen daher volle Garantie für die Funktionsfähigkeit 
Duo-Disk Station Slimline, 2 x 143KB Chinon DM 995, Apple-Betriebssystems. j ’ 2 ' 





sowohl für die gelieferten Leerplatinen, als auch für die fertig 
bestückten Boards und Interface Karten, die fast ohne Ausnahme 
* mit gesockelten IC's geliefert werden. 

IBM -- Kompatible Interface Karten und Mainboards -- IBM 


Siemens Disk-Laufw., 143KB, m. Kabel + Gehäuse DM 498,— We 
Abor-Disk-Laufw., Slimline, 143KB, m. Kab. + Geh. DM 398, — & 
Chinon Slimline, 143KB, Superleise,m.Kab.+Geh. DM 495,— 








Teac 55F, 1 MB unf. Kapazität, Shugartbus DM 498,— t Al Disk Controller Karte für 2 Disk-Drives *KL-2020 DM 198,- 
Teac 55F, kpl..in Gehäuse, 40/80 Track, 1MByte i Color Video Board, "KL-2050 DM ab 398,- 
anschlußfertig, mit Umschaltung 40/80 + Kabel DM 548,— N Monochrome Video boards "KL-2060 DM ab 298,- 
Zweitlaufwerk für Apple II C, 143 KB, mit Kabel DM 448, — RS 232 Drucker Interface Karte KL-2074 DM 199,- 
APPLE -- INTERFACES + MAINBOARDS -- APPLE Centronics Paralell Interface Karte KL-2072 DM 148,- 
Disk Controller f.2 Original o. kompat. Drives "DM 89,— Multifunktion Karte, RAM-Bereich, RS232 
Super-Controller f. 2x Teac 55F, mit Software "DM 188,— Paralell, Clock, mit o K bestückt *KL-2040 DM 398,- 
80 Zeich-Karte mit 64K RAM + Softsw. f lle „DM 99, — dto. wie vor, jedoch mit 128K bestückt "KL-2041 DM 488,- 
80 Zeich-Karte Il, m. Softswitch, 2 Zeichensätze DM 1599 — APPLE -TASTATUREN+LEERGEHÄUSE+NETZTEILE- APPLE APPLE -- ORIGINAL + KOMPATIBLE - COMPUTER -- APPLE dto. wie vor, jedoch mit 256K bestückt *"KL-2042 DM 578,- 
16K RAM Erweiterung für I und kompatible [DM 98— Standard Einbau-Tastatur, ASCII, freibel. 9 Tasten, APPLE Ile, 64KRAM, Ascii-Tastat. + UHF-Modul. DM 1998,— _512K RAM Karte, mit O K bestückt KL-2095 DM 248,- 
2 80A Interface Karte für GPM 2.2 DM 79,  Doppelbelg. aller Tasten, Groß+Kleinschr.Nr.N?6 DM 139,— APPLE Ile Einstiegspaket = Computer 64KRAM, dto. wie vor, mit 128K bestückt KL-2096 DM 338,50 
2 80B Interface Karte für CPM 3.0, m. 64K RAM ‚DM 595,— Tastatur wie vor, jedoch mit 15er Block Nr.N67 DM 178— + Philips-Monitor 18 Mhz grün + Siemens F122 - Multi I/O Interface Board, RS232, Disk-Controller, 
Printer-Grafik Interface, Epson kompatible "DM 79,— Tastatur Nr. N67, mit sep. Gehäuse, kpl. m. Kabel DM 249,— Laufwerk 143K m. Controller + Lerndiskette DM 2998, — Centronics, Clock, Joystick 
Gentronic-Paralell Text-InterfaceKate [DM 79—  Seperate Tastatur IBM-Look, anschlußfertig mit APPLE IIC, 128 KRAM, ASCII Tastatur DM 2795, — und Lightpen-Port "KL-2071 DM 568,- 
Printer-Grafik Interface, NEC/ITOH kompatibel DM 169,— Kabel, Dopp. belegt.Tasten, freiprog. Funkt. Tasten DM 298,— APPLE II C, wie vor, jedoch deutsche Tastatur DM 2998, — Eprom Writer Karte (bis 128K benutzbar) 598,- 
Anschluß Kabel f. Paralell + Grafik Interface DM 34,— Seperate Tastatur, Eprom progr.-bar, Cursorblock MACINTOSH System komplett m. Mouse + Tastatur Hardisk/Winchester Host-Adapter Karte "KL-2022 DM ab 998,- 
Buffer Grafik-Interface, benutzbar für Drucker Tastenfeld mit 24 Funktionen, Deutsch o. ASCIl DM 398,— + Macwrite/Macpaint, Systemguide-Diskette DM 5995,— Mainboard XT Version, 8 Slots O bestückt 
Epson/Nec/ltoh/Okidata u. andere m. 32K Buffer DM er Leergehäuse Standard, passend f. TastaturNr.N26 DM 98,— MEWA-48K, Apple kompat., Netzt. 5Amp, Tastatur mit 1 Boot-Eprom, 6 Eprom-Plätze frei *KL-1004 DM  649,- 
Buffer Interface wie vor aber mit 64K Buffer DM 58 — dto. wie vor, jedoch passend für 15er Tast. N67 DM 119,— mit Dopp-Belegung + 10 frei Prog.Tasten, mit dto. wie vor, jedoch mit 128K bestückt "KL-1005 DM 739,- 
Anschluß Kabel f. Buffer Interface Karte 2 an Leergehäuse wie Mewa 9000, für Einbau von zwei UHF-Mod,, ohne Firmware Eproms. DM 698,— dto. wie vor, jedoch mit 256K bestückt "KL-1006 DM 829,- 
— ei ... an Eojiduni an 188 Slimline-Laufwerken + Tastaturanschluß, Plastic DM 159,— MEWA-64K. wie vor jedoch mit 15er Block DM 728,— Bei den mit * gekennzeichneten Artikeln gehört zum Lieferumfang 
uper Serieile Interface Karte, FUllGupiex ’ ! Leergehäuse wie vor, jedoch in Metall-Ausführung DM 198,— MEWA 9000er Serie, mit seper.Tastat. DIN o. ASCII ein Manual, und z. T. ein Schaltbild. 
Sprach (Speech) Karte f. Sprachwiedergabe ‚DM 58,— m. dopp. belegt. Funkt-Tasten, Cursorbl. + 15er all f hl 
6522 Paralell Interface Karte DM 149,— Schaltnetzteile für APPLE u. kompatible Rechner Block Netzt. 5 Amp.. Gehäuse für 2x Slimline- Preislisten + Prospekte kostenlos gegen frankierten Rückumschlag 
Clock Karte (Datum/Uhrzeit) Ein/Ausgabe "DM 129,— +5V/5A-5V/0,5A +12V/2,5A -12V/0,5a N74 DM IIORO  arvarka UIMF-kraulator 6, Eimw-Proris um  _ DISKETTEN BOXEN — tree 
Eprom Writer Karte (2716 - 2764) "DM 129, — +5V/7.5A -5V/0,5A +12V/2A -12V/0,5A N75 DM 149,50 (12KROM), 48K RAM 5 DM 998 — Profi Disk.Box. m. Schloß. Klars.-Deckel. 100 Disks DM 39, — 
IEEE-488 Interface Karte "DM 398, — MEWA 9000-64-C. wie vor jedoch 64K RAM DM 1098 — Disk Box mit Klars.-Deckel, ca. 70 Disketten 5" DM 26,— 
Logo-Karte mit Diskette und Handbuch ‚DM 498,— * Komplett mit Gehäuse und Ile Tastatur, » MEWA 9000-64-C Einstiegspaket, wie vor, jedoch Hartbox für 10 Disketten, mit Klappdeckel DM 6,90 
ee ee ne Nee Apple Ile a: getrennte Cursor-Steuerung, mit Apfel- mit 1 Disk Drive eingeb. + Disk-Contr. + Monitor, IBM -- Kompatible Leerplatinen + Boards -- IBM 
AGB Interface K t Apdlell + li DM 169 — Compatible -Tasten (geschlossen - offen) N grün DM 1898,— Disk Controller f. 2 Drives DM 39,— 
aB Interface Karte (f. Apple Il + Il+) j ' mit 80-Zeichen-Karte! $ x®  IBM-Look Gehäuse für MEWA 9000 Serie Aufpreis DM 39,— Color Grafik Video Board DM 68,— 
Wild Karte (kopiert über RAM-Bereich) DM 119, — ? U N a rn er hc A ee ran 
128K RAM Erweiterungs Karte m. Patchsoftware "DM 398,— &g Be -- MATRIX- UND TYPENRAD - DRUCKER -— Eee ee er 
256K RAM ae Karte m. Patchsoftware ""DM 498, — 1 28 K D M 898 — g 5% CP-80 Matrıx Orucker, Epson kompat., vollgrafikf. DM 739, — Centronics Paralell Interface Karte DM 39— 
6809 Prozessor Bat Iteriasakarie + DM 398, — Er a & g CP-80 X mit eingeb. Interface für VC 64 f. Sim. B. DM 899, — Multifunktion Interface Board DM 78,— 
IC-Tester Interface Karte (RAMS/TTL 54/74) DM 448— er Sg SPEEDY 100-80, Epsonkompat., 1002/s,v.-grafikf. DM 759,— Eprom Writer Interface Karte DM 78,— 
Hauptplatine 48K. o. Firmware Eproms, 8 Slots DM 388 — Zusatzkarten für Apple Ile PS A GEMINI 10X, Neu mit Textsp., 100 Z/s., 9x9 Mat. DM 998,— Multi /O Board DM 72,— 
Faeeline BAR. wievor a DM 398 80-Zeichen-Karte DM 8— FE GEMINI 15X, wie 10X, jedoch bis 375 mm Papierbr. DM 1198,— Mainboard XT Version, 8 Slots DM 98— 
APPLE ae LEERPLATINEN LE appıe B£0-Zeichen-Karte + 64-K:RAM Preise a. Anfrage 5 ITOH 8510 B, Die Zuverlässigkeit in Person DM 1475,— RAM Card für Speicher-Erweiterung DM 68,— 
Leerplatinen der obigen Interface Karten sind alle in vergoldet Motherboard Ile, bestückt + geprüft DM598.— © JUKI 6100. Typenraddr., 22 Z/s, TA-Typenräder DM 1495,— Alle Leerplatinen werden mit Bestückungsplan geliefert 
m. Bestück-Aufdruck + Best.-Plan lieferbar FEB AEEEEREEREEEEEEEEEECEEEEREEEEETERE Schaltbilder, soweit verfügbar, Lieferung gegen Aufpreis 
Leerpiatinen mit der Kennzeichnung “DM  39,— Computer-Artikel Nachnahmeversand unfrei, Zwischenverkauf vorbehalten. IBM - ge n 4 Burn 
Leerplatinen mit der Kennzeichnung "DM 24,550 Angebote freibleibend unter Anerkennung unserer Lieferbedingungen. Technische Änderungen vorbehalten. "Apple ist eingetragenes Rechner Leergehäuse f. Einbau v. 2 en MN re 
Leerplatinen mit der Kennzeichnung +DM 33,— Warenzeichen der Fa. Apple-Computer Inc., Kalifornien. Ware mit Rückgaberecht, besonders gekennzeichnet, muß frei zurückgeschickt Profi-Tastatur, m. Kabel im Gehäuse, ASCIl DR 
Experimentier Platine, für Apple SIot EX300 DM 29,90 werden. "IBM* ist eingetragenes Warenzeichen der Firma IBM GmbH Ffm dto. wie vor, jedoch deutsche DIN Belegung DM 418,— 
ae erbebcsra x per Best.-Aufdruck DM 66, er ea year a 
< ö nn y I Netzteil, mit Ventilator, 100 Watt DM 298,— 
Leerplatine Motherboard, 64K. mit 6502 + 280 om 89— GOMPUTER CENTER CONEX ERICH-WILLI MEYER dto. wie vor jedoch 135 Watt DM 338.— 
5650 SOLINGEN 11 - Postfach 11 0206-9 P 6343 FROHNHAUSEN - Postfach 70 11 Disketten Laufwerk, 2x40 Track DS/360 KB DM ar 
Telefon (0212) 75449 Telefon (027 71) 350 71 Harddisk 10MByte, kpl. m. Xebec Controller DM 2990,— 


Sonderliste gegen Rückporto. Katalog gegen 3 DM in Briefmarken 
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Kurzanleitung 


Li; 


(Kopie der) ProDOS-Systemdiskette (beliebige Version) 


mit PR#6 booten und dann CONVERT mit 
-CONVERT starten. 


Nun MKBOOT.BAS + MKBOOT.OBJ + DOBOOT.OBJ 
von Peeker-Sammeldisk (DOS-3.3-Format) 
auf (Kopie der) ProDOS-Systemdiskette übertragen. 


. Jetzt von ProDOS-Systemdiskette FILER mit 


-FILER starten und Leerdiskette formatieren. 


. Nun erneut ProDOS-Diskette booten und dann MKBOOT.BAS mit 


-MKBOOT.BAS starten, das seinerseits MKBOOT.OBJ 
und DOBOOT.OBJ automatisch einlädt. 


. Wenn Menü erscheint, formatierte Leerdiskette einlegen, 


5. 


Slot-Nummer 6 eingeben und Return drücken. Damit wird die 
formatierte Leerdiskette zu einer Fastboot-Diskette 

mit der Systemdatei "PBASIC" (PRODOS + BASIC.SYSTEM). 

Nun zu Testzwecken PBASIC-Diskette mit PR#6 starten. 


MKBOOT.BAS 


199 
119 
12 
130 
149 
15® 
16® 
179 
189 
190 
200 
210 
229 
230 
249 
259 
269 
270 
280 
299 
309 
31® 
320 
330 
349 


359 
369 
370 
380 
390 
400 


410 
420 
430 
440 
450 
460 


HIMEM: 8192: REM $209® 

GSYS = 12288: REM $309® 

MODBß® = 12291: REM $3003 

TEXT : HOME 

HTAB 8: PRINT "ProDOS Fastboot-Erstellung!' 

FOR X = 1 TO 49: PRINT "=";: NEXT 

PRINT CHR$ (4)"PREFIX /" 

IF PEEK (GSYS) + PEEK (GSYS + 1) = 82 THEN 29 
PRINT CHR$ (4)"BLOAD MKBOOT.OBJ": REM A$300d 
PRINT CHR$ (4)'"BLOAD DOBOOT.OBJ,A$3499": REM (!) 
VTAB 5: HTAB 7:SL = 6: REM Default 

PRINT "Slotnummer des Ziel-Drives: ";SL 

VTAB 5: HTAB 35: GET X$ 

IF X$ = CHR$ (13) THEN 269 

PRINT X$: IF X$ < "1" OR X$ > "7" THEN 229 

SL = VAL (X$) 

VTAB 8: HTAB5 

PRINT "Zieldiskette in Drive 1 einlegen." 
PRINT : PRINT : HTAB 6 
PRINT "<RETURN>=Start 
VTAB 11: HTAB 22: GET X$ 
IF X$ = CHR$ (27) THEN 45® 
IF X$ < > CHR$ (13) THEN 399 

POKE 34,13: HOME : POKE 34,® 

PRINT CHR$ (4)"PREFIX,D1,S"SL: 

REM Setzt "Last Unit" in SGP 

PRINT CHR$ (4)"PREFIX /" 

CALL GSYS: REM Kopiert aus allen Banks nach $34ß®.. 
PRINT "Das System wird geschrieben...": PRINT 
PRINT CHR$ (4)"BSAVE PBASIC,A$3409 , E$SFFF" 

PRINT "Der Urlader wird modifiziert...": PRINT 
UNIT = 16 * SL: POKE 766,UNIT: 

REM Für BLOCKREAD/WRITE 

CALL MODBß®: REM Read Block ßP, Mod & Rewrite 

IF PEEK (767) = ® THEN PRINT "Ok.'": GOTO 269 
PRINT CHR$ (7)"I/O ERROR!": GOTO 459 

REM Programmende 

CLEAR : HIMEM: 38490: END 

REM Arne Schäpers 5/85 


<ESC>=Ende" 


MKBOOT.OBJ 


BSAVE MKBOOT.OBJ, A$3000, L$BGCD 


* MKBOOT.OBJ 

* Fastloader-Erstellung 
* 

SPTR EQU $p9 

TPTR EQU $92 

* 

MOVER EQU 
BUFFER EQU 
* 


‚Ziel-Pointer 


$199 
$9009 


;Kopier-Routine 
;Puffer für MODBY® 


ORG $3909 

* 
JMP MOVESYS 
JMP MODB@®ß 


‚dezimal 12288 

;‚dezimal 12291 

* 

MOVESYS JSR COPYMV 
LDA #$BF 
STA SPTR+1 
LDA +$8F 
STA TPTR+1 
LDX #$26 
JSR MOVER 
LDA +#$FF 
STA SPTR+1 


;kopiert MOVER nach $1ß® 
‚zuerst BASIC.SYSTEM und 
;beide Global Pages 
‚nach $6Aß®..8SFFF 


‚darunter kommt das MLI 





ZVSYSIO 


* 
COPYMV 
CPMl 


MVLOC 


MV 


DOMOD 


IOERR 
“ 


PBLOCK 
RWUNIT 


* 
MODOFF 


NEWOP 


LDX 
BIT 
JSR 
LDA 
STA 
LDX 
BIT 
JSR 
BIT 
LDA 
STA 
LDX 
INC 
JSR 
DEC 
LDA 
STA 
LDX 
LDY 
JSR 


LDX 
LDA 
STA 
DEX 
BPL 
RTS 


LDY 
LDA 
STA 
DEY 
BNE 
STY 
STY 
RTS 


STA 
STA 
LDA 
STA 
INY 
BNE 
DEC 
DEC 
DEX 
BNE 
STA 
STA 
RTS 


LDA 
STA 


JSR 
DFB 
DA 

BNE 


LDX 
LDY 
LDA 
STA 
INX 
CPX 
BCC 


JSR 
DFB 
DA 

STA 
RTS 


DFB 
DS 
DA 
DA 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


LDA 
BIT 


+$30 ‚53009 Bytes 


$c08B ;READ von LC Bank 1 
MOVER ‚nach $3AßP... 
+$D3 ;REBOOT von $D1@9..D3FF 
SPTR+1 
#503 ‚5300 Bytes 
$c983 ;READ von LC Bank 2 
MOVER ‚nach $3899... 
$c982 ;ROMON 
#503 
SPTR+1 ;RAM-Disk von $200..$3FF AUX 
+$92 ;$200 Bytes 
MOVER+1 ;READ von AUX 
MOVER 
MOVER+1 ‚zurück auf READ von MAIN 
#503 ‚Page-3-Vektoren 
SPTR+1 
+$01 ;nur eine Speicherseite 
#+$EQ® ‚von $3E®..3FF 
MOVER ‚nach $34Eß..34FF 
#3 ;‚die Redirection-Vektoren 
E2uln) ;in der Global Page des 
$8E38,X ;BASIC.SYSTEM werden 

‚auf Null gesetzt 
ZVSYSIO 

‚zum BASIC-Programm 
#+$1B ;kopiert MOVER nach $1®® 
MVLOC-1,Y 
MOVER-1,Y 
CPMl 
SPTR ;‚SPTR= $xxß® 
TPTR ; TPTR= $xxß9 
$c992 ;RDMAIN 
$CH904 ;WRMAIN 
(SPTR).YF 
(TPTR).Y 
MVl 
SPTR+1 
TPTR+1 
MVl 
$cp92 ;RDMAIN 
$c9p4 ;WRMAIN 
$2FE ;von BASIC: Unitnummer 
RWUNIT ;=> Pblock für Read/Write 
$BF@® 
$89 ;READ BLOCK 
PBLOCK 
IOERR 
+99 
MODOFF,X ‚Offset zur ersten Patch-Adresse 
NEWOP,X ‚neues Byte 


BUFFER+$BE, Y 


#+LASTOP-NEWOP ;Tabellenende? 


DOMOD 

$BFOd 

$81 :WRITE BLOCK 

PBLOCK 

$2FF ;Flag für BASIC 

03 ‚3 Parameter 

l ;Unitnummer für READ/WRITE 
BUFFER ;Ziel/Quellpuffer 

nn]oln) ;Blocknumner: $00 dd 
9,1,2,3,4,5 

$09-$BE 

$DB-$BE 

$FE-$BE 

$45 ,$46,$47 ;=> $903: neuer Filename 
548,549, $4A 

($4AA) ,Y ‚für "AND #$F® 

$D4 ‚wird später zu '"BEQ $896" 
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112 
113 
114 
115 
116 
nr 
118 
119 


120 LASTOP 


205 Bytes 


DOBOOT.OBJ 


BSAVE DOBOOT.OBJ, A$6409, L$PUDE 


* DOBOOT.OBJ 
* Prodos-Fastloader 


l 
2 
3 
4 
5 
6 
T 
8 
9 


* 
SPTR 
TPTR 
* 
MOVER 
* 


* 


* 


SETIOV 


IOVECS 


u 
FAKECR 


DDRTS 
* 


GETBAS 
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EQU 
EQU 


EQU 
ORG 


JSR 
LDA 
STA 
LDX 
BIT 
BIT 
LDA 
JSR 
LDX 
BIT 
BIT 
LDA 
JSR 
LDA 
STA 
BIT 
LDX 
INC 
LDA 
JSR 
DEC 
LDX 
LDY 
LDA 
JSR 


LDX 
LDA 
STA 
DEX 
BPL 
JMP 
DA 

DA 


d6 
$62 


$64 
'PBASIC' 


* 


$09 
$02 


$199 
$6499 


COPYMV 
+$99 
SPTR+1 
+$30 
$c08B 
$cd8B 
#$FF 
MOVER 
+$03 
$0083 
$C083 
+$D3 
MOVER 
+$EE 
$DDB 
$c082 
+$02 
MOVER+1 
+03 
MOVER 
MOVER+1 
#691 
+$EQ 
+03 
MOVER 


#03 
IOVECS,X 
$36,X 


SETIOV 
$EDNH 

GETBAS 
FAKECR 


#+$1B 
$38 
#$ FD 
$39 
+08 
+$8D 


#$DD 
DDRTS 
+$FQ 
$36 
#$FD 
$37 


+$96 
$70 
$74 
#+$A5 
$F2 


$FB2F 
$FC58 


+$97 


‚späterer Exit: STARTUP gefunden 
‚wird dann zu RTS 

‚Filetype: BIN, nicht SYS ($FF) 
‚Startadresse für Indexblock 

; (nicht $1E) 

;‚Startadresse für Programm 
;(nicht $290®) 

‚anstelle von 'PRODOS' 


;Tabellenende 


;Quell-Pointer 
‚Ziel-Pointer 


;Kopier-Routine 
‚wird hierher vom Boot geladen 


;kopiert MOVER nach $19® 
‚oberste Quell-Seite ist $9909 


;:$30 Speicherseiten 


;WRITE ENABLE Bank 1 LC 
‚oberste Ziel-Seite: $FF@9d 
;kopiert das MLI in Bank 1 


;WRITE ENABLE Bank 2 LC 
;kopiert REBOOT in Bank 2 


‚BANKID für Bank 2 

;ROMON 

;RAM-Disk: 2 Seiten, obere $30® 
;"STA WRMAIN" => "STA WRAUX'" 


;kopiert RAM-Disk nach AUX 
‚zurück auf WRMAIN 
‚Page-3-Vektoren 

‚von $3E®..$3FF 


;‚COUT zeigt danach auf GETBAS, 
;KEYIN auf "FAKECR"! 


;‚Kaltstart Applesoft 


;KEYIN zeigt hierher! 
‚538/39 auf Monitor 


;"8 Zeichen empfangen" 
‚jetzt <CR>" 


;Applesoft Prompt? 

‚noch nicht (ist <CR>) 
;‚Applesoft versucht nach dem 
;Kaltstart, ein Prompt zu druk- 
;ken und wird hier abgefangen 
;‚COUT jetzt auf FDF® (Monitor) 


;HIMEM für Applesoft: 
;$9600 (dezimal 3849P) 
‚Trace-Flag 


; TEXT (40x24) 
; HOME 





SETNAME LDA FNAME,X 
STA $200,xX 
AND #$7F 
STA $982,X 
DEX 
BPL SETNAME 
LDA z1_ N 
STA $200 


;"STARTUP" nach $2@1 


‚und für die File-Suche im Boot 


;=> "-STARTUP" 


LDA #$9c 
STA $4B 
LDA #+$D® 
STA $8BC 
LDA #$F® 
STA $8c® 
LDA #$6® 
STA $803 
STA $8FF 
JSR $892 
BCC GOTSTUP 
JSR FAKECR 

GOTSTUP JMP $BEB® 

* 

%* 

COPYMV 

MVc1 


‚das Volume-Directory wurde 
‚vom Urlader ab $CQ® geladen, 
;BPL im Vergleich wird zu 
;"BNE" — kein Vergleich SType! 
‚BIT $D4 

‚=> BEQ $896: File gelöscht und 
;'"RTS" am Ende der Suchroutine 
;RTS für "STARTUP gefunden" 
;RTS für "nicht gefunden" 
‚sucht VolDIR nach STARTUP ab 
;"STARTUP" gefunden 
;KEYIN-Vektoren auf Monitor 
;Kaltstart BASIC.SYSTEM 


#FNAME-MVLOC 
MVLOC-1,Y ;kopiert MOVER nach $19® 
MOVER-1l,Y 


MVC1 
SPTR 
TPTR 


‚= dd 
‚= dB 


50094 
TPTR+1 
(SPTR),Y 
(TPIR).Y 


;WRITE nach MAIN 
‚Zieladresse (high) 


MV1 
SPTR+1 
IPTRrFl 


;Quelle - $19® 
;Ziel - $199 
‚Seitenzähler 
MVl 


$c994 ;:WRITE nach MAIN 


07 ‚Namenslänge 
"STARTUP" 





a SS KIRTM KR TEST 


abwärtskompatibel zur Saturn 128k 
für alle Slots verwendbar 


incl.Software RAMDISK (2%496 Sekt.) DOS 3.3 
inc1.Software RAMDISK Pascal,Prodos,CP/M „"” 


erweiterbar auf 512K 







ae 






793,.-2M 
1395.-DM 


S1i2K RAM-KARTE incı. 4 Disketten 











KHK 


Kompatibel zur 16K Language Card 
Datensicherung nach Abschalten 
119.-DM 
incl.Software DOS 3.3 Utilities 
125K AKKU-RAM-KARTE incı. 4 Disketten 795.-DM 


iM RAM-KARTE incı. 4 Disketten 
FSEUDO-ROM (z.B. Rom-Edit etc.) 
leichter Einbau 
Alle Preise inc1l1.19%MwSt; Info Gratis; Erhältlich über den Fachhandel oder 
Direktversand per Nachnahme zuzüglich Porto und Verpackung bei 


für alle Slots verwendbar 
Ing.Büro M.Fricke Neue Str.13 1888 Berlin 537? Tel:839/891 56 52 
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DEEKER 


Börse 





zn 





Verkauf Software 


KArrKKArrr WARGAMES KAcKArKhrr 


Die Besten von SSI für APPLE C 
64 ATARI. Info gegen 80 Pfg. RP 
Computer-Service Th. Müller 
Postfach 2526 7600 Offenburg 


Vereins-Manager, Bibliotheks- 
Chef u. a. Profi-Software von 
E. Heinz Waldgürtel 7, 5060 Berg. 
Gld. 1 


CAD-Programm ROBO 500 + 
PLOTTER-SOFTWARE 500/1000 
kompl. m. HARDWARE. Test s. 
APPLE’S 7/8 NP DM 3300 VHB. 
DM 1900 Tel. 07 11/52 31 54 


PASCAL-Textdump f. All 79,— 
LISP-Interpreter f. Mac 249,- 
Thomas Maier, Mühlweg 24, 6360 
Friedberg 1, 060 31/9 1650 


ASTRO-Programme für APP- 
LE: RADIX Solar/Composite/Part- 
nervergleich mit Plotter-Routinen 
für: HP, EPSON Hi-80, WATANA- 
BE, u. andere 

Liste anfordern von ROJASOFT 
Postfach 4461 CH-8022 Zürich 


MACINTOSH-SOFTWARE. 
US-Import Preisliste + Gratisinfo 
SC-INFO-1, PF 2013, 5100 Aachen 


Schreibmaschinenübungs- 
programm. Verbessern der Fin- 
gerfertigkeit! Durch Zeit- u. Fehler- 
kontrolle für 2e m. 80Z-Karte; 50 
DM VS, NN Patz, 6082 Walldorf/2, 
Nordendstr. 50, Tel. 06105 
74561 ab 19 Uhr 


KRRRHKFKRHKKTRTKKHTTK TR 


LAND. 
SPITZENPROGRAMME 
FÜR APPLE Il 
AB 190 DM INFOMAPPE 
3.50 DM 
A. Wachendborf, 


2814 Engeln 30 
PIDEDEDERDEREESEREREEREEENN 


KRRRKRRKKKKRKKHKKK 
KRRKRKKKKRERRR 


Ankauf Software 


Suche MERLIN-Assembler 
(DOS 3.3) nachmittags, Tel. 
0 71 59/36 02 


Verkauf Hardware 


Fernschreiberinterface am 
Gameport m. Programm DM 79,- 
P. Benner, Hubertusstr. 131, 4150 
Krefeld 


ERPHI-SUBSYSTEM 
2x640KB 1900,00 ERPHI-Con- 
troller 280,00 DM Phillips 2x 80 
Track 440,00 DM 35/40 TRACK 
LAUFWERK 430,00 DM M. Killer- 
mann 09 11/3967 72 + 3330 31 


: BUNDLL 


Büroelektronik 





Keithstr. 26 : 1 Berlin 30 : ® 0 30-26 111 26 


*APPLE 11x1/0-Probleme?x 
& zusätzliche Slots, per Software 
schaltbar, ohne komplexe Steuer- 
softw. 2Platinen, 1a Ind. qualität 
unbest. DM 180,- Info: E. Tausend- 
pfund Gonsenheimer Spieß 18, 
65 Mainz 


Distar-Laufwerk incl. Kabel 
439 DM Contr. 97 DM; Touch Tabl. 
+ SW 198 DM APPLE Ile Komat. 
+ 80 Zei. + 128K 1398 DM. Ro- 
bert Hartmann *0681/66393* 
EDV + Zubehör Mainzer Str. 102 
6600 Saarbrücken 3 


Z80OA-Appli-Card (PCPI, 4MHz, 
64KB, CPIM 2.2), 10 Diskseiten für 
600 DM, Tel. 0531/84 4649 


APPLE-II-Kompatibler, 48K, 
16K-Karte, 80Z/Z, Tastatur/ 1der 
Block Gehäuse, Monitor, Control- 
ler VB 1100,- Tel. 07 11/425890 


apple lic mit CPM/2. LW/ 
Mouse/2M. alt/Software/Literatur/ 
DM 4200,- Tel. 0931/86372 


IBS Z-80B Karte 590 DM, 
68000 Ka. 799 DM, 256 KRAM 
599 DM 05 21/87 04 24 


APPLE Ile 2 Floppys Monitor 
LITERA Div. Karten Software gün- 
stig. 041 06/7 1970 


Erscheinungstermin für 


Ausgabe 10/85 
ist am 23. 9. 1985 





APPLE REPARATUREN 
(auch compatible M-boards, z.B. 
Atlas, Arca, CES, Datastar, 
Dipa, Lasar, Mewa, 

PC-48 + 64, Plato, Radix, o. 
ae.) sowie Zusatzkarten und 
Disk-Drives führt unser Speziali- 
stenteam mit mehr als 5-jähriger 
Kunden- und Reparatur-Dienst-Er- 
fahrung, garantiert zuverlässig und 
besonders kostengünstig aus. 
Bitte genaue Fehlerangabe sowie 
Tel. Nr. für evtl. Rückfragen nicht 
vergessen. 

Auf Wunsch Kostenvoranschlag. 
aaa-electronic gmbh 
Habsburgerstr. 134, 7800 Freiburg, 
Tel. 0761/2768864, Tx. 772642 aaad 


Suche Apple Ilic Reference 
Manual Manfred Rost Tel. 02 11/ 
335842 


012345678912012345678901234 
256-K-Karte für Apple als RAM- 
Floppy günstiger wie Laufwerk. 
Betriebsbereit mit Software nur 
349,— DM FUCOM GmbH, 
Postfach 483, 4600 Dortmund 1. 


Suche f. Apple Ilic DbaseCom- 
piler, ROBO 1500, C Helper u. 
Microcap, Software z. Tausch 
vorh. Tel. 0228/37 44 74 


== RUNDIU 


===  Biüroelektronik GmbH 
Bachstr. 104 - 2 HH 76 : ®& 0 40-220 1155 


Für weitere Informationen zu einem der in dieser Ausgabe vorgestellten 
Produkte stehen Ihnen die Produktkarten zur Verfügung 


Bitte verwenden Sie für Kleinanzeigen die vorgedruckten Antwortkarten in 
diesem Heft. 
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344999 PEEKER IH 


Ja, ich möchte peeker abonnieren. 

Liefern Sie mir peeker ab Ausgabe .................- (1985 erscheinen 11 Ausgaben — 
1 Doppelnummer) zum Jahresbezugspreis von DM 72,- (Inland) incl. MwSt. Die 
Lieferung erfolgt frei Haus. Porto, Verpackung und Zustellgebühren übernimmt 
der Verlag. Der Jahresbezugspreis für das Ausland beträgt DM 72,- incl. MwSt., 
zzgl. DM 16,80 Versandspesen. 


Ich wünsche jährliche Berechnung durch: 
[_] Verlagsrechnung [_] Abbuchung von meinem Bank- 
bzw. Postscheckkonto 


Bank / PschA 
Bankleitzahl Kto.-Nr. 


Datum Unterschrift 





Bitte senden Sie mir gegen Rechnung folgende Bücher: 





Datum Unterschrift 


Bitte senden Sie mir 
gegen Rechnung folgende Apple-Programme: 


Apple DOS 3.3, Begleitdiskette, DM 28,— 
Apple ProDOS, Band 1, Begleitdiskette, 
DM 28,- 

Apple ProDOS, Band 2, Begleitdiskette, 
DM 28,— 

Apple Assembler, Begleitdiskette, DM 28,— 
ProDOS-Editor 1.0, Programm, DM 98,— 
MMU 2.0, Programm, DM 98,— 

INPUT 2.0, Programm, DM 98,— 
Softbreaker 1.0, Programm, DM 48,— 
DB-Meister, Programm, DM 290,— 
Superplot, Programm, DM 48,— 
Superquick, Programm, DM 48,— 


u 


[] Peeker-Sammeldiskette, einzeln 
Disk# ‚ Disk# 
Disk# _____, Disk# 
Preis je Disk DM 28,- (einzeln) 


[] Peeker Sammeldiskette, 
im Fortsetzungsbezug 
ab Disk # ____ —_ 
(Mindestbezug 6 Disketten) 
Preis je Disk DM 20,- 


[] CP/M ja [] CP/M nein 
I Pascalja DJ Pascal nein 


UDUUDDUDODOD 0 DD 


Datum Unterschrift 





Straße 


PLYOr 

Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, daß ich die Bestellung 
schriftlich durch Mitteilung an den Dr. Alfred Hüthig Verlag, 
Postfach 102869, 6900 Heidelberg 1 innerhalb von 

7 Tagen widerrufen kann. Zur Fristwahrung genügt die 
rechtzeitige Absendung des Widerrufs (Datum des 
Poststempels). 





Datum 


Unterschrift 

Verlagshinweis: 

Das Abonnement verlängert sich zu den jeweils gültigen 
Bedingungen um ein Jahr, wenn es nicht 2 Monate vor 
Jahresende schriftlich gekündigt wird. 
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Straße 





PLZ/Ort 


Telefon mit Vorwahl 








Karte bitte vollständig ausfüllen 


Vorname, Name 


Firma 


Straße 


PLZ/Ort 





Telefon mit Vorwahl 


e Software -Karte 





POSTKARTE 


peeker 
Leserservice 


Postfach 10 28 69 
6900 Heidelberg 1 


POSTKARTE 


peeker 
Versandbuchhandlung 


Postfach 10 28 69 


6900 Heidelberg 1 


POSTKARTE 


peeker 
Softwareabteilung 


Postfach 10 28 69 


6900 Heidelberg 1 


INPUT 2.0 


Ein Bildschirm- 
Maskengenerator 


für DOS 3.3 und ProDOS 

von U. Stiehl 

1984, Diskette und Manual, DM 98,— 

ISBN 3-7785-1021-5 

„Input 2.0° liegt wahlweise in der Bank 1 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
48K aufgerufen. 

Für jedes Feld der Bildschirmmaske lassen 
sich u.a. definieren: Feldlänge (bis zu 255 
Zeichen) — Vtab — Htab — Datentyp (insge- 
samt 8 Typen) - Scrollflag (starre oder dyna- 
mische Maske) — Ctriflag — Füllflag — Lösch- 
flag — Bildschirmflag (40- oder 80-Z-Darstel- 
lung). Innerhalb eines Eingabefeldes besteht 
jeder denkbare Redigierkomfort (Insert, De- 
lete, Rubout, Restore usw.). 
Gerätevoraussetzung: Apple Ile oder Ilc; fer- 
ner Apple !I+ im 40-Zeichenmodus 


MMU 2.0 

Memory Managements 
Utilities 

für die Apple lle 64K-Karte 

DOS 3.3 (und ProDOS) 


von. Stiehl 


1984, Diskette und Manual, DM 98,— 
ISBN 3-7787-1023-1 


Insgesamt enthält die neue „MMU 2.0°- 
Diskette über 25 Programme, die neue 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterte 80-Z-Karte = 
64K-Karte für den Apple Ile) erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple II Plus, doch ist „MMU 2.0" 
primär für 64K-Karte-Besitzer gedacht. 


Gerätevoraussetzung: Apple Ile mit 64K- 
Karte oder lic 


Softbreaker 1.0 


Eine softwaremäßige Interrupt-Utility 
für die Apple lie 64K-Karte 


von U. Stiehl 


1984, Diskette und Manual, DM 48, — 
ISBN 3-7785-1022-3 


Softbreaker ist ein Assemblerprogramm, mit 
dessen Hilfe Programme, die sich von der 
64K-Karte (= Extended 80 Column Card für 
den Apple lle) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Stelle 
der Unterbrechung fortgeführt werden kön- 
nen. Dadurch ist es auch möglich, Siche- 
rungskopien von sogenannten kopierge- 
schützten Programmen herzustellen. 

Mit Softbreaker unterbrochene Programme 
werden komplett, d.h. die ganzen 64K ein- 
schließlich Language Card, in nur ca. 11 Se- 
kunden auf einer formatierten Diskette gesi- 
chert. 

Gerätevoraussetzung: Apple Ile mit 64K- 
Karte 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 
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| \, ICROMINT Modell AN95SFTE... DM 448,— ohne MwSt. (DM 510,72 incl. MwSt.) 
L LT j © R ® 3 5 Die KEYBOARDS SPEZIELL angepaßt für den APPLE Ile 
IBM 256K,2 x TEACBFDD, Contr. 
ee color Graphik, Multifunktionscard, 
STE Si LASAR ZE 
- — Apple comp. 64 K + 

6502 + Z80 A | 
80 Z sw Tastatur 1 290; 

Außerdem volles Rückgaberecht innerhalb 


’ Händleranfragen erwünscht 
LASAR 16 
mn Nezeiısa 4.678; 
12K ROM + 
14 Tagen ohne Begründung. 









Apple | IBM 
r FLEXIBEL Jede Taste frei im EPROM programmierbar in 
® Mehrzweckklappgehäuse lt. Abb. 147,— | 147,— bis zu 8 Ebenen im mitgelieferten EPROM 
® Schaltnetzteile Apple5 A/IBM 15 A 115,— | 238,— PROFESSIONELL Für Anwender mit gehobenen Ansprüchen 
® Profitastatur dtsch. LASAR 2000 291,— | 291,— ERGONOMISCH Nach DIN ULTRAFLACH gestaltetes stabiles 
® Interf b_ 75,- |148 .. 
IDATIBED . 9 Br e. KOMPLETT Tastatur, Gehäuse und Kabel fertig montiert 
® Monitor 22 Mhz incl. Fuß, bernstein 289,— | 289,— und getestet. Durch Spezial-Kabel und Spezial- 


EPROM sofort einsteckfertig. 


KOMPAKT + FLACH Durch Einsatz von „SIEMENS“ Flachtasten- 
modulen 


Kaufgarantie/Tiefstpreisgarantie/1A Qualität: 100 % kompatibel inkl. Systemsoftware 

Made by Micromint: Apple Il 495,-, Apple Ile 695,-, IBM 895,— Fertigplatinen. Tragbare 

Gehäuse für 7-Zoll/9-Zoll-Monitore 595,— DM inkl. Tastaturen. Winchester 27 MB auf 
Anfrage 1A First Class Controller bis 140 MB 935,— DM. 


Generalimporteur MICROMINT Computer GmbH 
Hochdahler Straße 151, 4006 Erkrath 2 
Telex 8589305 mcm 


= 02104/33024 





gesellschaft für 
computersteuverungen 
und datentechnik mbh 


D-4930 Detmold # Alter Mühlenweg 5 
Telefon O0 52 31/41 76 « Telex 935 660 acs d 





Appie und IBM nern Spple 


kompatible Computer | ZÄAND | Preisliste 





KEYBOARDS 





zu langsam? 


16K, Z80, Diskcontroler je 4% W/ 7 |N\ ı 
80 Zeichenkarte mit Softswitch N kostenlos! BITSWT-Tnjefol a [-P CE GES jet T1DI-Tn1TelsWOBssr-Teisi@eL-TaW.Vejell- 


2 Zeichensätze . 


Il, II+ und Ile so schnell wie die populären 16bit 


Motherboard 48K ohne Mh, Katalog DM 2,— at=Tel 1 T-T aa DIT-BUT-Tnslelel u [=D = el-T-fei a1 [-181slTe1ae: 1 11-21 co} 


PRITOWERB: 02. 2. EA Er ta 
Claalan PA: lektelliigels 
Erphi-controler mit Autopatch are ee BERBNR IAUE SO 


Siemenslaufwerk F 122 . . ..... Unser Angebot im August = 
TEAC FD-55B 2 x 40 Track . . . ... IOS. 


SEITE ER DOn nr = Profimax Ill, APPLE II kompatibel, Mehr Informationen 


RNEBGAEDE DEREK AN. ie = m on mit Z80 und 6502, IBM- look nur 1248,— und Händleranfragen bei: 
Monochrome Monitore 


Farbmonitore . » . 2 2020.20. Profimax Ile, APPLE Ile kompatibel 
T für IBM und Apple . . ab 330,- 
astaturen für und Apple a IBM- look nur 1598,— 


Versand nur per Nachnahme oder Vorkasse L au Zar 
Weiteres Zubehör für Apple und IBM gegen Chinon- Laufwerk F051A, mit Kabel 8 R. Alverdes 
frankierten Rückumschlag. r S SI ETFANZI ET ARE 
RE und Gehäuse, anschlußfertig nur 398,— =} .. 7602 Oberkirch 


Tel.: (07802) 37 07 


ft- 


ware-Änderung! Einfach einstecken, einschalten 


128K Karte (Saturn kompatibel) . 375,— STAR sg-10, schönschreibfähig nur 898,— Pa a | a TuS 


Preissenkung 4164-200 ns ans 
Mindestabnahme 20 Stck. . . . . 3,90 Druckerinterface, grafikfähig nur 118,- 


Zusatzkarten und Motherboard ausnahmslos 
deutsche Fertigung mit ausgesuchten Bauteilen. 


Ulf Mohwinkel Electronic 
Berliner Straße 73 Pf: 250 166 
5090 Leverkusen Fettehenne 

Telefon 02 14/9 37 81 


Ta =Tal-1issr-10.<-1aR 


Am Kühnbach 42, 7170 Schwäbisch Hall 11 muttekt !® | » Software und Peri- 


1, II+, Ile und Mac. 


APPLE-I EETEE]-5:.B99WEI EEE 


für alle Il[-Typen 


kompatibles FETTE TErTraum Preise 


€ 16: 1fofe WeL-TeT-1. u D] V, Eu Ben 
D.O.S. Computersysteme Ber 2 __wWirhaben die neuste 


Telefon (0791) 51736 = u pherie für den Apple 


— 


Ad SEREHPC—6G4 Konbi-Preis Fiese), 439 


SPRINGMANN COMPUTER GmbH -— nur“ FESTER 

Stöckener Str. 199 er Diskdri P- 

3866 Hannover 21 ER 999 »4 Co + ans 99 | 

Tel: 0511-?791111 Tl: 9214665 comps d ' DM AND DM f.IBM-PC (350K) DM 469 
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von Reiner Hammerschmidt 


Angeregt durch die Grafik-Möglichkeiten 
einiger größerer Computer entstand der 
Wunsch, höhere Grafik-Auflösungen mit 
dem Apple zu realisieren. Dieser hat zwar 
die Möglichkeit, hochauflösende Grafiken 
darzustellen, dies aber nur mit maximal 
280 * 192 Punkten bzw. 560 & 192 Punk- 
ten beim Ilc oder Ile mit entsprechender 
Karte. Ein Bild mit noch höherer Auflösung 
ist mit dem nachfolgenden Programm 
SUPER.HGR und einem Matrixdrucker 
mit Einzelnadelansteuerung möglich. 


Als Hardware reichen ein Apple Il und ein 
grafikfähiger Matrixdrucker mit passendem 
Interface aus. Eine noch weitaus größere 
Auflösungen als hier (640 * 320) ist erziel- 
bar, wenn man mit dem Programm einen 
sogenannten DOS-Mover verwendet. 

Zur einfacheren Ausgabe liegt die Grafik 
im Speicher zeilenweise druckergerecht 
vor. Die Auflösung wird in Zeile 150 durch 
die Variablen LE (horizontal) und ZE (verti- 
kale Punktzahl = ZE x 8) festgelegt. Die 
hier angegebenen Werte gelten für einen 
NEC 8023. Die Variablen LE und LE$ müs- 
sen bei anderen Druckern eventuell ange- 
paßt werden (z.B. bei weniger als 640 
Punkten pro Zeile). LE$ enthält die Initiali- 
sierungsfolge für den Drucker, um eine 
Grafikzeile byteweise ausgeben zu kKön- 
nen. Der hier verwendete String besagt, 
daß der Drucker auf Grafik umschalten 
und 640 Bytes pro Zeile als Grafik aus- 
drucken soll. 
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Um bei Druckeranpassungen zu bleiben: 
Der NEC druckt im Grafikmodus Bit O 
oben. Da es aber auch Drucker gibt, die Bit 
O unten drucken, muß hierfür die Zuwei- 
sung an die Variable Z2% in Zeile 480 
folgendermaßen lauten: 

Z2% =2 1 (7 - (ZZ-Z1I%) & 8) 

Ebenso muß die Einstellung des Zeilenab- 
standes in Zeile 530 (16/144 Inch) sowie 
die Grafikinitialisierung in Zeile 550 bei 
Druckern außer NEC 8023 bzw. ITOH 
8510 angepaßt werden. 


Zur Funktion des Programms 


Die Kernroutine basiert auf den Zeilen 
480-510. Um auch bestehende Grafikpro- 
gramme weiterverwenden zu können, 
brauchen nur X- und Y-Koordinaten des 
zu setzenden Punktes bestimmt und über- 
geben werden. Diese Werte müssen in- 
nerhalb der vorgegebenen Grenzen |ie- 
gen, da keine Abfrage eingebaut ist, wel- 
che Fehler abfangen könnte. Der Koordi- 
natenursprung liegt, wie gewohnt, links 
oben. Die ermittelten X-Y-Werte werden 
mittels der Variablen | (Abszisse) und Y% 
(Ordinate) an das Unterprogramm 480ff. 
übergeben, welches die absolute Adresse 
(N1% und N2%), sowie die Pixelwertigkeit 
des Punktes im Byte (22%) bestimmt. Das 
hierdurch eindeutig bestimmte Bit wird 
dann durch eine Maschinenroutine in den 
Speicher „hineingeODERt“ (CALL 788). 

Das Programm stellt in der abgedruckten 
Form eine Demonstration dar und soll zu 





ll. nee" 


weiteren Experimenten anregen. Nach 
Start mit RUN löscht es den Grafik-Spei- 
cher und fragt nach der gewünschten Gra- 
fik, die durch Modifikation einzelner Para- 
meter im Programm variiert werden kann. 
Nach Eingabe der entsprechenden Ziffer 
entsteht die Grafik, zunächst unsichtbar, 
bis der Ausdruck erfolgt. Weitere Ausdruk- 
ke sind möglich durch Eingabe von GOTO 
530. Die Zeilen 170-450 stellen somit An- 
wendungsbeispiele der Super-HGR dar: 
Zunächst wird der Maschinensprachteil 
gepokt (630ff.; auf Peeker-Sammeldisk 
unter dem Namen SUPER.HGR.ASM), 
und der Grafik-Speicher oberhalb von HI- 
MEM wird gelöscht. Anschließend wird die 
gewünschte Grafik berechnet, wobei noch 
lange nicht alle Möglichkeiten im Pro- 
gramm ausgeschöpft sind (siehe Beispie- 
le). Man denke z.B. an hochauflösende 
Darstellungen von 3D-Funktionen. Ab- 
schließend erfolgt der Ausdruck der er- 
stellten Grafik. 


Da Applesoft-BASIC bei Ausgaben grund- 
sätzlich Bit 7 auf Null setzt, mußte auch 
hierfür ein kleines Maschinenprogramm 
verwendet werden, daß über USR() aufge- 
rufen wird. Dieses erwartet ein Druckerin- 
terface in Slot 1 und muß für andere Inter- 
faces gegebenenfalls angepaßt werden. 


Das Programm wurde bewußt soweit wie 
möglich in Applesoft geschrieben, um 
sehr leicht Änderungen vornehmen zu 
können. 
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SUPER.HGR 51® POKE 792,22%: CALL 788: RETURN 
52® REM —---Ausdruck-Routine für NEC 8923--— 
1®® REM Super-HGR für APPLE II 530 PRINT CHR$ (4)"PR#1": PRINT CHR$ (27)"T16": 
11® REM 3 akakakakakakakakakakakakakakakakakalakakklklkkkek REM Zeilenabstand 16/144 inch 
128 REM x Reiner Hammerschmidt * 548 FOR J=9B TOZE-LN1 
130 REM * Oktober/1984 ” 556 PRINT CHR$ (27);LE$;: REM Vorbereiten Grafik (NEC) 
140 REM BB BB 560 FOR I=HM + J * (LE) TOHM+ (J+1) «LE - |]: 
150 LET PI = 3.1415926:LE = 649:LE$ = "Sß64ß'":ZE = 49 WY = USR ( PEEK (I)) 
169 HM = 82ß9: HIMEM: HM 578 NEXT : PRINT : NEXT 
178 GOSUB 639: GOSUB 61® 580 PRINT CHR$ (4)'"PR#ß" 
180 HOME : PRINT "Super HGR" 590 END 
198 VTAB 9: PRINT "1 Sinus" 600 REM -—-——-—-—-—— Bereich löschen ———— 
208 PRINT : PRINT "2 Spirale" * 618 FOR I = HM TO HM + ZE * LE: POKE I,®: NEXT : RETURN 
218 PRINT : PRINT "3 Stern" 62® REM --——- Assembler Unterprogramm poken ——— 
228 VTAB 22: PRINT "Ihr Wunsch : ";: GET A$: PRINT A$ 630 FOR I = 768 TO 796: READ A: POKE I,A: NEXT 
230 IF A$ < "1" OR A$ > "3" THEN 229 64ß POKE 19,76: POKE 11,9: POKE 12,3: REM USR-Vektor 
240 ON VAL (A$) GOTO 279,359,41® 650 RETURN 
250 END 660 REM UP für 8 Bit Daten 
2608 REM -——-—-—----—- -. --. -— - — Sinus (X#X) —— 670 DATA 32,12,225,165,161,44,145,192,48,251,14l, 
278 FOR I=HM TOHM+LE-N1 145,192,141,146,192,141,148,192,96 
280 LET B= (2 x PI) / LE 680 DATA 173,8,32,9,90,141,8,32,96 
298 LET Y% = ( SIN (Bx (I- HM) * (I-HM) *«B) + ]) 


* ((ZE*8) - 1) /2 * Zeile 61® nimmt einige Sekunden in Anspruch! 


300 LET ZZ = Y% / 8: LET 21% = INT (Z2): 


31® LET PT% = PEEK (I + 21% * LE) l * Maschinensprachteil aus SUPER.HGR 
320 POKE I + Z1% * LE,((PTZ OR 2 1 22%) = 2 1 22%) + PT% >) ö 
330 NEXT I: GOTO 53® 3 ORG $30B 
349 REM ------—— Spirale ——— 4 * 
350 FOR WW = ® TO 20 « PI STEP PI / 19® 5 AYINT EQU $EIBC :FAC->INT 
360 LET G = 159 * WW / (28 x PI) 6 BYTE EQU $2098 ;Byteadresse 
370 LET I=HM + 1.1 * COS (WW) * G + 329 7 * 
380 LET YZ = SIN (WW) * G + 169 0300: 28 BC El 8 JSR AYINT 
390 GOSUB 489: NEXT WW: GOTO 53% 0303: A5 Al 9 LDA $Al 
400 REM ——— ———— __ Stern ——— 0305: 2C 91 CO 1® INTERF BIT $cg91 ‚Interface 
al® FOR WW = .Öß@dl TO 2 = PI STEP PI / 19 0308: 30 FB 1l BMI INTERF 
420 FOR G = 1 TO 169 B30A: 8D 91 C® 12 STA $cp9ı1 ;in Slot 1 
430 LET I= HM + 1.1 x COS (WW) * G + 329 d30D: 8D 92 Ch 13 STA $c992 ;Typabhängig! 
440 LET YZ = SIN (WW) * G + 169 310: 8D 94 Cd 14 STA $CP94 
450 GOSUB 489: NEXT G: NEXT WW: GOTO 53® 0313: 69 15 RTS 
SB nn nn UP: setze Punkt ——— 16 x 
478 REM I= X-Koordinate , YZ= Y-Koordinate 0314: AD 08 20 17 LDA BYTE 
480 LET ZZ = YZ / 8: LET Z1% = INT (ZZ): 0317: 09 89 18 ORA +#$89 
LET 22% = 2} ((22 - ZI%) # 8) 0319: 8D B8 20 19 STA BYTE 
490 N1Z = (I + ZIZ * LE) / 256:N2% = (I+Z1% « LE) - d3lC: 6B 20 RTS 
N1Z * 256 
500 POKE 790,N1%: POKE 795,N1%: POKE 789,N2%: POKE 794,N2% 29 Bytes 
Umwandlung in Großbuchstaben 
von H.Grumser 
Die meisten Apple-Besitzer verfügen über die entsprechenden einfachen Selbstaute VERSAL 


Groß/Kleinschreibung als serienmäßige 
Ausstattung des Ile und Ilc oder als Nach- 
rüstung des alten Il Plus mit Kleinschreib- 
umrüstsatz oder 80-Zeichenkarte. Von 
dieser Möglichkeit, die die Lesbarkeit von 
Programmen und Menütexten erheblich 
verbessert, wird auch in allen im Peeker 
veröffentlichten Applesoft-Programmen 
Gebrauch gemacht. 

Um den Besitzern eines „ungetunten“ 
Apple Il Plus gerecht zu werden, entstand 
das Programm VERSAL, das alle Klein- 
buchstaben eines im Speicher befindli- 
chen Applesoft-Programms in Großbuch- 
staben umwandelt. Darüber hinaus wird 
das Eszett (ß) in ein einfaches S konver- 
tiert und alle Umlaute (ä, ö6,ü, A, Ö,Ü)in 
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(a, 0, u, A, O, U). Diese einfache Umset- 
zung gewährleistet die weitere Funktions- 
fähigkeit des Programms. 

Für die Umwandlung ist folgendermaßen 
vorzugehen: 

RUN VERSAL 

LOAD PPROGRAMM.ALT 

CALL 768 

SAVE PPROGRAMM.NEU 

Das Maschinenprogramm ist relokativ und 
bearbeitet auch verschobene Programme 
(z.B. hinter die HGR geladene Pro- 
gramme). 


Der Quellcode zu dieser Maschinenrouti- 
ne befindet sich auf der Peeker-Sammel- 
disk unter dem Namen T.VERSAL. 


1 REM PROGRAMM ZUR UMWAND- 
LUNG VON KLEIN- IN 
GROSSBUCHSTABEN 

2 FOR I = 768 TO 838: READ A: 
POKE 1,A: NEXT 

3 DATA 165,103,133,250,165,104, 
133,251,160,1,177,250,240,56 

4 DATA 200,200,200,177,250,48, 
291,208,12,56,152,101,250.133 

5 DATA 250, 144,233,230,251,176, 
229,201, 126,208,2, 169,83,201 

6 DATA 97,144,2,41,223,201,91, 
208,2,169,65,201 92. 208.2,169 

7 DAIA 79,201 ,93,208,2,169,85, 
145,250,200,208,203,96 
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Eine Taktzähler-Utility 


von Michael G. Schneider 
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Manchmal steht man vor der Aufgabe, die 
Laufzeit eines fertigen Programms zu re- 
duzieren. Ein nicht ganz einfaches Pro- 
blem, denn da der statische Quelltext nicht 
immer genügend Information über das dy- 
namische Verhalten des Codes |iefert, 
kommt man durch bloßes Lesen des Li- 
stings nicht weiter. Vielmehr benötigt man 
exakte Angaben darüber, wo das Pro- 
gramm den größten Teil der Zeit verbringt, 
um dann an diesen Stellen die Optimie- 
rungen durchführen zu können. 


Bei der Ausarbeitung meines Beitrags zu 
dem Primzahlen-Wettbewerb (Peeker, 1/ 
84, Seite 58) entwickelte ich zur Lösung 
dieses Problems eine Utility, welche ich im 
folgenden vorstellen möchte. 


lag Monitor 








Das Verfahren 


Der Ablauf eines Maschinenprogramms 
hat prinzipiell sequentiellen Charakter, so 
daß man diesem weitestgehend auch mit 
„Papier und Bleistift“ folgen kann. Einzige 
Problempunkte sind bedingte Verzwei- 
gungen (Branch-Befehle wie etwa BCC 
oder BMI), da man im voraus nicht immer 
ganz einfach feststellen kann, in welchem 
Zustand sich bestimmte Flags befinden. 
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Man weiß daher auch nicht, wie oft eine 
Schleife tatsächlich durchlaufen wird und 
welchen Anteil sie an der Gesamtzeit 
bildet. 


Es sei folgende Sequenz gegeben: 


START Anweisung I 


Anweisung n 
ENDE BCC START 


Gehen wir einmal davon aus, daß die 
Schleife nur über das Label START betre- 
ten und auch nur über ENDE verlassen 
werden kann und die Anweisungen 1—n 
(also ohne das BCC) eine Laufzeit von 111 
Zyklen haben. Wenn man nun z.B. wüßte, 
daß das Label ENDE insgesamt 123mal 
mit C = O0 und 45mal mit C = 1 erreicht 
wird, so könnte man die Verweildauer in 
der Schleife zu 123 x (111 + 3) + 45 
(111 + 2) = 19107 Zyklen bestimmen. 
Hierbei wurde berücksichtigt, daß ein 
Branch-Befehl 3 Zyklen bei Verzweigung 
und ansonsten 2 Zyklen benötigt. 

Mit meiner Utility kann man nun überprü- 
fen, wie oft eine bestimmte Anweisung 
passiert wurde und wie die Flag-Verhält- 
nisse dabei aussahen. Dazu muß vor die 
betreffende Anweisung ein JSR-Sprung 
zur Utility gelegt werden. 


FLAG.MONITOR besitzt die drei von au- 
Ben zugänglichen Routinen INITIAL, MO- 
NITOR und DRUCKEN, wobei sich 
Sprungbefehle zum Anfang dieser Routi- 
nen bei $8000, $8003 und $8006 be- 
finden. 


INITIAL führt eine Initialisierung durch und 
muß vom Anwender vor MONITOR einmal 
aufgerufen werden, da ansonsten wichtige 
Speicherplätze zerstört werden können! 


MONITOR ist der Kern der Utility und wird 
von den relevanten Stellen des untersuch- 
ten Programms aktiviert. Im allgemeinen 
sind dies diejenigen Adressen, welche un- 
mittelbar vor Branch-Befehlen liegen. 
Denn z.B. von einem BCC-Befehl will man 
ja gerade wissen, wie oft er mit C = 0 bzw. 
C = 1 erreicht wird. MONITOR legt für 
jede dieser aufrufenden Stellen einen 19 
Bytes langen Block an, in dem alle interes- 
santen Daten gespeichert werden. 
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Aus der Tabelle’ kann man entnehmen, 
daß in den ersten beiden Bytes des Blocks 
die Adresse der aufrufenden JSR-Anwei- 
sung abgelegt wird. Im Byte 3 befindet 
sich der Opcode der dem JSR $8003 fol- 


Tabelle 1: Block-Aufbau 


d,1 : JSR-Adresse 

2 : Überlauf 

% : Opcode 

4,5,6 ‘ Gesamtzähler 
7,8,9 : Zähler für PL 


5, 
8, 
18,11,12: Zähler für W 
13,14,15: Zähler für CC 
16,17,18: Zähler für NE 





genden Anweisung (also z.B. ein BCC- 
Code). In den Bytes 4 bis 18 werden 5 
verschiedene 3-Byte-Zähler geführt. Die 
Bytes 4 bis 6 registrieren, wie oft MONI- 
TOR von der betreffenden Adresse aus 
aufgerufen wurde. Die übrigen Zähler ge- 
ben an, wie oft davon der jeweilige Status 
vorgelegen hat. Um z.B. zu ermitteln, wie 
oft das Carry-Flag gesetzt war, muß der 
Zähler in 13 bis 15 von dem in 4 bis 6 
subtrahiert werden. Sollte einer dieser 
Zähler einmal überlaufen (größer als 16 
Millionen!), so wird das Byte 2 auf 1 ge- 
setzt; ansonsten bleibt es 0. 

Die Routine DRUCKEN gibt ein formatier- 
tes Listing der durch MONITOR aufgebau- 
ten Blöcke aus. 


INITIAL und MONITOR benötigen keine 
externen Routinen, so daß diese jederzeit 
(also beispielsweise auch trotz zerstörter 
Zero-Page) aufgerufen werden können. 
DRUCKEN hingegen benutzt zur Ausgabe 
von Zeichen die üblichen Routinen aus 
dem ROM. Dies hat den Vorteil, daß man 
die Listings auch in einen File oder zum 
Drucker schicken kann. 


Ein Beispiel 


Vor einer Beschreibung der Implementation 
soll hier ein Anwendungsbeispiel gegeben 
werden: 

Angenommen man benötigt die folgende 
Funktion: Abhängig von dem Parameter W 
(zwischen 2 und 127) soll die kleinste Zahl 
N als Ergebnis geliefert werden, so daß 
256 + N ganzzahlig durch W teilbar ist. 
Einige (W, N)-Paare sind etwa (2, 0), (3, 2), 
(4, 0), (5, 4), denn z.B. 256 + 4 = 260 ist 
ganzzahlig durch 5 teilbar. 


In FLAG.MONITOR.TEST sind drei Reali- 
sierungen der obigen Funktion zusam- 


ASSEMbILER ‚’ 


mengefaßt. Die erste addiert so lange den 
übergebenen Wert, bis dieser 256 erreicht 
(oder überschreitet). Die zweite multipli- 
ziert den Wert mit 2, bis dieser 128 er- 
reicht, um dann ebenfalls fortgesetzt zu 
addieren. Die dritte Routine multipliziert 
zwar auch mit 2, hört jedoch erst dann auf, 
wenn 256 erreicht wurde. Dann wird der 
Wert subtrahiert, bis 256 gerade eben un- 
terschritten wird. Um das Endergebnis zu 
erhalten, muß dann noch einmal der Wert 
addiert werden. 


Tabelle 2: Ausgabe des Testprogramms 
JSR-Adr : $9308 


1074 
519 
948 
948 

1068 


564 

126 

126 <<< 
6 


a 


JSR-Adr : $0311 
Su = 240 
PL 114 
Vc 240 
EG 240 
NE 2A 


126 <<< 


UDO N 


INH 8 


JSR-Adr : $9318 
Su 
PL 
Vc 
cc 
NE 


452 
126 
452 
396 
426 


in. 


d 
126 <<< 


u HN 


JSR-Adr : $0321 
su = 366 
Pl. 47T 
vc 366 
cc 240 
NE 36% 


nn u 


ua a 


JSR-Adr : $0328 
Su = 462 
PL = 294 
vc 399 
126 
462 


: $0342 
126 


125 
126 


= 
am] 


IRA N 
i®} 
un 
NEN 


ns 
un 


p 
126 


23} 
D 





Es ist offensichtlich, daß die zweite Imple- 
mentation der ersten überlegen ist. In 
welcher Relation jedoch IMPL2 und IMPL3 
stehen, kann nicht ohne weiteres angege- 
ben werden. Es ist nämlich so, daß für 
bestimmte Werte die Routine IMPL2 bes- 
ser abschneidet, diese jedoch bei anderen 
Werten unterlegen ist. 


33 





Um eine Entscheidung treffen zu können, 
habe ich dann an den wichtigen Punkten 
meine Utility aufgerufen (am Rand durch 


„---" gekennzeichnet). Im Hauptpro- 
gramm werden dann nach der Initialisie- 
rung die drei Routinen mit allen möglichen 
Parametern aufgerufen. Die durch DRUK- 
KEN erzeugte Zusammenstellung findet 
sich in der Tabelle 2. 


Dieser kann man z.B. entnehmen (erster 
Block), daß MONITOR von $0308 aus ins- 
gesamt 1074mal aufgerufen wurde (Su als 
Abkürzung für Summe). Davon galt 
948mal CC (C = 0) und 126mal CS (C = 
1). Man beachte, daß die Tabelle nach den 
JSR-Adressen sortiert wurde und die rele- 
vanten Zeilen in den Blöcken durch 
„<<< gekennzeichnet wurden. Bei- 
spielsweise folgt dem JSR MONITOR auf 
$0308 ein BCC, so daß die CC/CS-Zeile 
hervorgehoben wurde. 


Man kann nun die Laufzeit der verschiede- 
nen Routinen einfach bestimmen. Zur Er- 
leichterung habe ich im Quelltext am rech- 
ten Rand die jeweilige Zyklenzahl ver- 
merkt. Es ergeben sich dann die in der 
Tabelle 3 zusammengefaßten Zahlen. Er- 
wartungsgemäß wird IMPL1 von den bei- 
den anderen Routinen geschlagen. Nicht 
unmittelbar vorherzusehen war jedoch, 
daß IMPL2, für welches sich eine mittlere 
Laufzeit von 3918 / 126 = 31.1 Zyklen 
ergibt, deutlich schneller als IMPL3 ist. 





Die Implementation 


Die FLAG.MONITOR-Utility belegt den 
Speicherplatz von $8000 bis $8336. Be- 
ginnend bei $8337 werden die 19 Bytes 
langen Blöcke aufgebaut, deren Anzahl 
(und damit auch die höchste von FLAG- 
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.MONITOR benutzte Adresse) vom An- 
wender bestimmt wird. Die Maximalzahl 
der verwalteten Blöcke habe ich auf 253 
beschränkt, so daß in keinem Fall das 
DOS, welches üblicherweise bei $9600 
startet, zerstört wird. Die Routinen benöti- 
gen ferner noch 6 Speicherplätze in der 
Zero-Page, die jedoch immer gesichert wer- 
den. 


ANZAHL gibt die Anzahl der schon ange- 
legten Blöcke an, während sich in 
ENDPTR die Adresse des ersten freien 
Speicherplatzes hinter den Blöcken befin- 
det. Alle übrigen Variablen dienen nur zur 
kurzfristigen Speicherung von Werten und 
werden im weiteren erklärt. 


ZEHNPOT enthält eine Tabelle von Zeh- 
nerpotenzen, die bei der Hex-Dez-Um- 
wandlung benutzt werden. FLAGNAME 
und TEXT definieren einige Texte, auf die 
durch DRUCKEN zugegriffen wird. 


SICHZUST bzw. RESTZUST sichert bzw. 
restauriert den Zustand, in welchem die 
Utility aufgerufen wurde. Schließlich dür- 
fen durch FLAG.MONITOR keine Regi- 
sterinhalte oder Flags verändert werden. 
Diese beiden Routinen werden von 
INITIAL, MONITOR und DRUCKEN aufge- 
rufen. 


INITIAL versetzt den Datenbereich in ei- 
nen wohldefinierten Zustand, indem AN- 
ZAHL auf 0 und BLOCKPTR auf die erste 
freie Adresse hinter dem Code gesetzt 
wird. 


MONITOR ist das Hauptprogramm und 
besteht im wesentlichen aus Aufrufen von 
Unterprogrammen. Zunächst wird die 
Adresse der aufrufenden Stelle ermittelt 
und in JSRADR gespeichert. Man beach- 
te, daß sich auf dem Stack die um 1 ver- 
minderte Rückkehradresse befindet. In 
SUCHEN wird getestet, ob für diese 
Adresse schon ein Block angelegt wurde. 
In diesem Fall ist C = O0 und BLOCKPTR 
zeigt auf eben diesen Block. Andernfalls 
weist BLOCKPTR auf den ersten Block, 
dessen JSR-Adresse größer als die vor- 
gegebene ist, und ZAEHLER gibt die An- 
zahl der Blöcke jenseits von BLOCKPTR 
an. ANLEGEN nutzt diese Information 
dann aus, indem es erst die folgenden 
Blöcke nach oben schiebt und in dem so 
entstandenen freien Raum einen neuen 
Block (mit leeren Zählern) anlegt. Durch 
dieses Verschieben wird erreicht, daß sich 
die Blöcke immer in aufsteigender Reihen- 
folge befinden. Die Routine EINTRAGEN 
inkrementiert dann abhängig vom Prozes- 
sor-Status die Zähler. 


Die Routine DRUCKEN gibt die Informa- 
tion aus den zuvor angelegten Blöcken 


formatiert aus und benutzt unter anderem 
die Routinen IDENCODE und HEXDEZ. 


Zum besseren Verständnis von IDEN- 
CODE habe ich in der Tabelle 4 die Op- 
codes der Branch-Anweisungen zusam- 
mengefaßt. Aus ihr ersieht man (in binärer 
Darstellung), daß ein Branch-Code immer 
die Form hh01 0000 oder hh11 0000 hat. 
Durch schrittweises Schieben nach rechts 
wird, falls ein Branch-Code vorliegt, hh + 
1 in IDENT abgelegt. 


HEXDEZ führt die Umwandlung einer Hex- 
Zahl in einen String aus dezimalen Ziffern 
durch. 





Schlußbemerkungen 


Wenn zur Analyse eines Programms viele 
MONITOR-Aufrufe eingestreut werden, so 
vergrößern diese natürlich die Ausfüh- 
rungszeit. Obwohl das exakte Ausmaß der 
Verzögerung von der konkreten Situation 
(Anzahl der Blöcke, Zustand der Flags) 
abhängt, läßt es sich mit etwa 500 + 40 x 
S Zyklen abschätzen. Darin sei S die mitt- 
lere Anzahl der Blöcke, die durchsucht 
werden müssen, bevor der richtige gefun- 
den wird. 


Falls z.B. im Verlauf des Programms 20 
verschiedene Blöcke aufgebaut wurden, 
müssen im Durchschnitt 10 Blöcke durch- 
sucht werden. Der Aufwand für jeden Auf- 
ruf von MONITOR beträgt dann also unge- 
fähr 500 + 40 x 10 = 900 Zyklen. Für 
jeweils 1111 Aufrufe muß man daher mit 
einer Verzögerung von 1 Sekunde 
rechnen. 


Bei Abschätzung der obigen Formel bin 
ich davon ausgegangen, daß die Anzahl 
der Blöcke sehr viel geringer ist als die 
Anzahl der MONITOR-Aufrufe. Aus die- 
sem Grund kann der durch die Routine 
ANLEGEN verursachte Aufwand vernach- 
lässigt werden. Ferner habe ich angenom- 
men, daß beim Inkrementieren 2 der 4 
Flag-Zähler behandelt werden müssen. 
Wenn natürlich immer nur PL, VC, CC und 
NE vorliegen, muß die Zyklenzahl noch 


etwas höher angesetzt werden. 
4‘ 
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AKUSTIK-KOPPLER - Dataphon s2 1d\ 





300 Baud Modem , nach CCITT V.21 Standard, 
m. FTZ-Nr. 18.13.1917.00, Gebühren- und 


anmeldefrei, Y24/RS-232 Standard-Schnittst. nur DM 298,00 
LEKOMMUNIKAT PLET KET 
geeignet für Apple //+ und Apple //e: 
I Dataphon s21d, 
1 Anschlußkabel: V.24 zum Apple II-Game-1/0, 
I Terminalprogramm: "HIB Modem -Transfer" nur DM 398,00 
fwerk ( Testbericht i 
für Apple //+ und Apple //e anschlußf. im Gehäuse DM 498,00 
w.o. jedoch für Apple //c DM 569,00 
i itzenlaufwerke zum reis! 
ND 06-D, 2x 80 Track , 640 K-Byte formatiert DM 549,00 
DI PEL-STATION (APPLE //+ APPLE //e 
2 x ND 06-D im Geh. + Auto-Patchcontr., 1,2 MB DM 1698,00 
AUTO-PATCH-CONTROLLER DM 298,00 
IC-Test-Karte (Testet ca. 500 verschiedene IC‘s) DM 398,00 
ROTHER-Matri je Super -Drucker! 
M- 1009 (Matrixdrucker , RS-232 + Centronics) DM 698,00 
M- 1009 anschlußfertig an: 
Apple //c (mit Drucker-Kabel) DM 798,00 
Apple //e (mit Graphik-Interface und Kabel) DM 898,00 


Alle Preise inclusive der gesetzlichen Mehrwertsteuer. 
Berechnung der Versandkosten erfolgt nach Entfernung und Gewicht. 
Fordern Sie noch heute unsere Gratispreisliste an'wiederverkäufer bitte nur 
schriftlich anfragen (Kopie der Gewerbeanmeldung beilegen!). 


o 


HIB Computerladen 
Äuß. Bayreuther Str. 72 - Telefon: 0911 / 515 939 
Postfach 21 01 25 
8500 Nürnberg 21 


- Telex: 17 - 911 8253 


- Teletex: 2526 - 911 82 53 


Die Ergebnisse vieler Stunden 
vor dem Apple hier zu Papier gebracht. 


Es geht hier weniger um das elementa- 
re Programmieren des Rechners, son- 
dern um Assemblerprogramme, die 
extensiv Monitor--ROM-Subroutinen 
benutzen. Diese hat der Autor nach 
Sachgebieten geordnet, z. B. Mathe- 
matik, Graphik, String-Bearbeitung + 
Disassembler-Listings und diese wie- 
derum mit Erklärungen und Applikatio- 
nen komplettiert. Eine ausreichende 
Dokumentation ist dabei immer ge- 
währleistet. Sie geht schrittweise vor, 
von der Aufgabenstellung über die 
Programmentwicklung bis zum lauffä- 
higen Maschinenprogramm. die ange- 
botenen Beispiele sind ausbaufähig. 


Das Buch zum Apple Il 


Theorie und Praxis des Apple-Il-Sy- 
stems. Von E. Esders. 

210 S., 119 Abb. geb. DM 54.- 

ISBN 3-7723-7641-X 


Das Buch erklärt die Verfahren, mit 
denen die Informationen auf die Dis- 
ketten geschrieben werden, mit denen 
die Steuerung der Laufwerke erfolgt, 
mit denen Betriebssystem und Pro- 
grammiersystem aneinandergeknüpft 
werden, mit denen die Routinen des 
Betriebssystems realisiert werden. Ei- 
nen großen Teil des Buches nimmt die 
Einzelschrittdokumentation ein, außer- 
dem sind schwierige Programmstellen 
durch Flußdiagramme dargestellt. Nun 
kann der Apple-Il-Fan Disketteninfor- 
mationen auch mal lesen, sogar mani- 
pulieren und eventuell das Betriebssy- 
stem ändern. 


DOS 3.3 — das Disketten- 

Betriebssystem des Apple-Il 
Eine ausführliche Dokumentation der 
Systemprogramme. Von B. Ruhland. 


253 S., 12 Abb. Geb. DM 48.- 
ISBN 3-7723-7691-6 


Franzis’ 


der große Fachverlag für angewandte Elektronik und Informatik 
Franzis-Verlag, München 
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ZUSATZ-KARTEN: 


V-24-Schnittstelle ............ 199,- Z-80-Karte .........2. 22220. 139,- 
80-Zeichen-Karte m.Softswitch 236,- 16 K-Language-Karte ......... 138,- 
Centronics-Karte von Epson für Graphik... . 210,- für Text... .145,- 
Centronics-Schnittstelle für 2 Drucker gleichzeitig ...........2222.2.2..- 129,- 


KOrATaEINE, SONWBIS 2. 2a eben kbree 198,- 


uper-Eprommer 


belegt keinen r incl. Software für 2508-27128 


Floppy-Controller 


FDC 4 für alle Laufwerke ........ 170,- Bausatz wielinks ............ 159,- 
Leerplatine wie oben incl.Promu.Eprom .......-..z...sss2us 44200 98,- 
Druck Spooler mit 16,32 oder 6AKB ...................- Preis auf Anfrage 


Erphi-Controller  .... 298,- 
Drucker-Spooler 64.kB, 


fertig aufgebaut incl. Netzteilu. Gehäuse ............2.ceeeee.n 340,- 


JoyStickDeluxe ............ 59,- NetzteilSA .......:2222220.. 149,- 
Gehäuse für 15/4’ Slimline Laufwerk 2.2: 2m nommen enreenenn 39,- 
Gehäuse für 2 5Y4” Slimline Laufwerke mit Platz für ein Netzteil ......... 159,- 
Gehäuse für 2 3%” Slimline Laufwerke mit Platz für ein Netzteil .......... 79,- 
IBM®-Gehäuse ......:: meer 229,- 
Floppy-Kabel 34pol. für 2 Laufwerke mit Shugart-Bus ................- 35,- 


Preh Commander Keyboards 


Wir bieten Ihnen die Preh-Qualität auch für Apple. AK 88 Spez. mit Gehäuse, An- 
schlußkabel, Zehner-Tastenfeld, dt. Zeichensatz, Sondertasten für 

Girl-Codes und Rechenfunktionen :.........u.-.s 004, an 339,- 
Preh Commander Keyboard, frei programmierbar 
bis zu 10 Ebenen, pro Taste bis zu 250 Zeichen . 








TEAC 3%" Laufwerk FD I > Fsas,- 


Speicherkapazität 1 MB, (formatiert 640 KB) ai RIrMUR 2.40 


KR BEFBE 





TEACFD55A1x40 Track ..... 445,- TEACFD55B2x 40 TaCK: 2.2.2: 515,- 
TEACFD55E 11x80 Track ..... 490,- TEACFD55F2x80 Track ..... 560,- 
SONT 3W LaUWWERR : 2 :5.. usar aaa ae nur 799,- 


Apple®-kompatibles Laufwerk incl. Gehäuse + Kabel 


320 KBLaufwerk fürlic _............. 28, - 


EPSON DRUCKER 
EPSONFXBO 2.222200... 1670,- EPSONFX100 .............. 2159,- 
EPSONRXBO .............. 1079,- EPSONRXBOFT ............ 1295,- 


Die Microfloppy mit Zukunft: 


Speicherkapazität: 2 x 1 MByte formatiert: 2 x 
640 kByte. Anschlußfertig mit PROM-residenter 
Patchsoftware für CP/M 2.2, Apple DOS 3.3, Di- 
versiDOS 2-C, 4-C (DD MOVER), Apple Pascal 


1.1, Pascal 1.2, Pro-DOS 1.0.1, 
1.1,. 1.1.1. zum Pfeisyvon. ....2...% 1640,- 





Low Power Version ..... 2222222... 1740,- 
® 
10 MB Winchester 
mit Software für DOS 3.3, CP/M 2.20, Pascal, Pro-DOS, A490 
incl. Controler und Gehäuse . . 222mm af 





Sonderangebot 


D ista r Laufwerk kah: rn PAPIERANE: jetzt nur 448,- 


Gesamt-Preisliste anfordern! Preise inclusive gesetzlicher Mehrwertsteuer. 


Sp] NICH-\-Yargelalle 


DFÜ 02373/66877 
AMeYKYETZALT.) 


u [el NIT WS 
5750 Menden |] 
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FLAG. MONITOR 


8009: AC AC 80 
8003: AC C2 80 
8006: AC CE 81 


oo oıDDuı ud 


KRAFT 


FLAG.MONITOR 


Michael G. Schneider 


2 2 nn 2 2 2 2 2 ze 


ORG $8900 


JMP INITIAL 
JMP MONITOR 
DRUCKEN 


BLOCKLEN 


ZEROPAGE EQU $99 
BLOCKPTR EQU ZEROPAGE 
QUELLPTR EQU ZEROPAGE+2 
ZIELPTR EQU ZEROPAGE+4 
OPCPTR EQU ZEROPAGE+4 


COUT EQU $FDED 
CROUT EQU $FDSE 
PRHEX EQU $FDDA 
PRBL2 EQU $FY4A 


* — cc —- — 


ANZAHL DS 1 
ENDPTR DS 


SICHERA DS 
SICHERX DS 
SICHERY DS 
SICHERP DS 
SICHERZP DS 


FLAG DS 
STATUS DS 
IDENT DS 
ZAEHLER DS 
JSRADR DS 


HEXWERT DS 
DEZSTRNG DS 


ZEHNPOT $80,$96 ,$98 ; 10000000 
$40,$42,$0F ; 1000009 
$AQ,$86,$01 ; 100009 
$10,$27,$00 ; 10009 
$E8,$03,$00 ; 1000 
$64,$00,$00 ; 100 
$OA,$00,$00 ;1® 
$501,$500,$500 ; 


FLAGNAME 
03 C3 C3 


TEXT 
TXTJSR "ISR-Adr : $" 
BA AB A4 

np . 
TXTUBRLF a I!!! Überlauf !!!" 
E2 ES F2 
Al Al Al 

1) 
TXTSU 
TXTGLHZ "=" 

11) 
TXTBRNCH 


* Sichere den momentanen Zustand (alle 
* Register, Prozessor-Status sowie den 
* Speicher von $ß® bis $ß5). 


SICHZUST STA SICHERA 
STX SICHERX 
STY SICHERY 


PHP 

PLA 

STA SICHERP 
LDX #5 

LDA ZEROPAGE,X 
STA SICHERZP,X 
DEX 

BPL LI 

RTS 


1 


* Restauriere den alten Zustand. 


RESTZUST LDX #5 

L2 LDA SICHERZP,X 
STA ZEROPAGE,X 
DEX 
BPL L2 
LDA SICHERP 
PHA 
LDY SICHERY 
LDX SICHERX 
LDA SICHERA 
PLP 
RTS 


u I 1 


* Initialisiere die Anzahl der Blöcke 
* und den Pointer auf deren Ende. 


INITIAL JSR SICHZUST 
LDA #9 
STA ANZAHL 
LDA #+<BLOECKE 
STA ENDPTR 
LDA #>BLOECKE 
STA ENDPTR+1 
JSR RESTZUST 


#1 — 


* Hauptprogramm: Trage den Flag-Zustand 
* in einem der Blöcke ein. Lege diesen 
* notfalls noch an. 


MONITOR JSR SICHZUST 


* Hole die Adresse der rufenden Stelle 
* vom Stack und lege sie in JSRADR ab. 


PLA 
TAX 
PLA 
TAY 


#2 
L3 


JSRADR 
JSRADR+1 
SUCHEN 
L4 
ANZAHL 
#255 

L5 
ANLEGEN 
EINTRAG 
RESTZUST 


* Suche die schon vorhandenen Blöcke 
x nach der aktuellen Adresse ab. 


SUCHEN LDA #<BLOECKE 
STA BLOCKPTR 
LDA #>BLOECKE 
STA BLOCKPTR+1 
LDA ANZAHL 
STA ZAEHLER 
BNE L9 
SEC 
RTS 
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* Berechne Po 


L7 LDA 
ADC 
BCC 
INC 
STA 
DEC 
BEQ 


* Vergleiche 


L9 LDY 
LDA 
CMP 
BCC 
BNE 


* Lege einen 
x an. Schiebe 
* oben. 


ANLEGEN LDX 
BEQ 


LDA 
LDY 
STA 
STY 
SEC 
SBC 
BCS 
DEY 
STA 
STY 


* Kopiere von 


LDY 
L13 LDA 
STA 
DEY 
BPL 
LDA 
LDY 
DEX 
BNE 


inter auf nächsten Block. 


BLOCKPTR 
#BLOCKLEN 
L8 
BLOCKPTR+1 
BLOCKPTR 
ZAEHLER 

L6 


die beiden Adressen. 


#1 
(BLOCKPTR),Y 
JSRADR+1 

7 

L1® 


(BLOCKPTR),Y 
JSRADR 
L7 


neuen Block bei (BLOCKPTR) 
zuvor ZAEHLER Blöcke nach 


ZAEHLER 
L14 


ENDPTR 
ENDPTR+1 
ZIELPTR 
ZIELPTR+1 


#BLOCKLEN 
L12 


QUELLPTR 
QUELLPTR+1 


(QUELLE) nach (ZIEL). 
#BLOCKLEN-1 
(QUELLPTR),Y 
(ZIELPTR),Y 

L13 

QUELLPTR 

QUELLPTR+1 


Lil 


* Erhöhe ANZAHL und ENDPTR um einen Block 


L14 INC 
CLC 
LDA 
ADC 
STA 
BCC 
INC 


ANZAHL 


ENDPTR 
#+BLOCKLEN 
ENDPTR 
L15 
ENDPTR+1 


* Lege die JSR-Adresse im Block ab, 


L15 LDY 
LDA 
STA 
STA 
INY 
LDA 
STA 
STA 


+0 

JSRADR 
OPCPTR 
(BLOCKPTR),Y 


JSRADR+1 
OPCPTR+1 
(BLOCKPTR),Y 


setze das Überlauf-Byte auf 9, 


INY 
LDA 
STA 


speiche 


+9 
(BLOCKPTR) ,Y 


re den Opcode, 








ASSEMbIER +4 


INY 
LDA 
STA 


(OPCPTR),Y 
(BLOCKPTR),Y 


und lösche alle Zähler. 


LDA 
INY 
STA 


+9 


(BLOCKPTR),Y 
#BLOCKLEN-1 


* Trage den Prozessor-Status in die 


* Zähler ein 


EINTRAG LDA 
PHA 
PHA 
PHA 
PHA 


SICHERP 


* Inkrementiere die Gesamtsumme 


LDY 
JSR 


#4 
INKREMNT 


und auch die PL-VC-CC-NE-Zähler. 


PLP 
BMI 
LDY 
JSR 


PLP 
BVS 
LDY 
JSR 


PLP 
BCS 
LDY 
JSR 


PLP 
BEQ 
LDY 
JSR 


L17 
#7 
INKREMNT 


L18 
+19 
INKREMNT 


L19 
#13 
INKREMNT 


L29 
#16 
INKREMNT 


* Inkrementiere den durch (BLOCKPTR),Y 


* bestimmten 


INKREMNT SEC 
LDX 
L21 LDA 
ADC 
STA 
BCC 
INY 
DEX 
BNE 


3ö-Byte-Zähler. 


#3 
(BLOCKPTR) ,Y 
#9 
(BLOCKPTR),Y 
L22 | 


L21 


* Achtung: Überlauf! 


LDA 
LDY 
STA 


Te 


* Drucke die 
* formatiert 


DRUCKEN JSR 
LDA 
BEQ 
STA 
LDA 
STA 
LDA 
STA 
JSR 


#1 
#2 
(BLOCKPTR),Y 


zuvor angelegten Blöcke 
aus. 


SICHZUST 
ANZAHL 
L28 
ZAEHLER 
#<BLOECKE 
BLOCKPTR 
#+>BLOECKE 
BLOCKPTR+1 
CROUT 
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* Identifiziere den Opcode. 


20 AC 82 JSR IDENCODE 


* Gib die JSR-Adresse aus ... 


LDY #TXTJSR-TEXT 
JSR PRNTTXT 

LDY #1 

LDA (BLOCKPTR),Y 
JSR PRHEX 

LDY #9 

LDA (BLOCKPTR),Y 
JSR PRHEX 


... und eventuell die Überlauf-Info. 


LDY #2 

LDA (BLOCKPTR),Y 
BEQ L24 

LDY +#TXTUBRLF-TEXT 
JSR PRNTTXT 

JSR CROUT 

JSR CROUT 

LDY #TXTSU-TEXT 
JSR PRNTTXT 


* Kopiere die Summe nach HEXWERT, 


LDX #2 

LDY #6 

LDA (BLOCKPTR),Y 
STA HEXWERT,X 
DEY 

DEX 

BPL L25 


* ... wandle sie in das dezimale System 
* um und drucke sie dann aus. 


JSR HEXDEZ 
JSR PRNTDEZ 
JSR CROUT 


* Gib die Summen der 4 Flags aus. 


LDA #9 

STA FLAG 
JSR PRNTFLG 
JSR CROUT 
INC FLAG 
LDA FLAG 
CMP #4 

BNE L26 


* Setze BLOCKPTR auf den nächsten Block 


CLC 

LDA BLOCKPTR 

ADC #BLOCKLEN 

STA BLOCKPTR 

BCC L27 

INC BLOCKPTR+1 
L27 JSR CROUT 


* Nächster Block. 


DEC ZAEHLER 
BNE L23 
JSR RESTZUST 


E 3 ee — —_— 
Identifiziere den Opcode: 


.. kein Branch-Befehl 
. BPL oder BMI 
... BVC oder BVS 
.... BCC oder BCS 
. BNE oder BEQ 


IDENCODE LDY #3 
LDA (BLOCKPTR),Y 
LDX #9 
LDY #4 


LSR 
BCS 
DEY 
BNE 
LSR 
BCC 
LSR 
TAX 
INX 
L3® STX 
RTS 


IDENT 


# --—- —- 


* Wandle HEXWERT in DEZSTRNG um. 


HEXDEZ LDX 
LDY 
L31 LDA 
STA 
BNE 


+9 

+9 

+" 9" 

DEZSTRNG,X 

E38 ‚immer! 


* Sie ließ sich subtrahieren. 


L32 STA 
PLA 
STA 
PLA 
STA 
INC 


* Versuche, 


HEXWERT+2 
HEXWERT+1 


HEXWERT 
DEZSTRNG, X 


ob sich die Zehnerpotenz vom 


* HEXWERT subtrahieren läßt. 


L33 SEC 
LDA 
SBC 
PHA 
LDA 
SBC 
PHA 
LDA 
SBC 
BCS 


HEXWERT 
ZEHNPOT, Y 


HEXWERT+1 
ZEHNPOT+1,Y 


HEXWERT+2 
ZEHNPOT+2,Y 
L32 


* Die Differenz wäre negativ. Also gehe 
* zur nächsten Ziffer/Potenz über. 


PLA 
PLA 
INY 
INY 
INY 
INX 
CPX 
BNE 


* nenn 


* Drucke einen der Texte aus. 


PRNTTXT LDA 
BEQ 


TEXT,Y 
L354 
COUT 


PRNTTXT ‚immer! 


* Gib die Dezimalzahl aus, wandle aber 
* führende Nullen in Leerzeichen un. 


PRNTDEZ LDY 
L35 LDA 
CMP 
BNE 
LDA 
JSR 
INY 
CPY 
BNE 


LDA 
JSR 
INY 
CPY 
BNE 


#0 
DEZSTRNG, Y 
#rg" 

L36 

yon 

COUT 


#7 
L35 


DEZSTRNG, Y 
COUT 


#8 
L36 
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Hinweis: 
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RTS 


% ————— 


* Drucke die 
* Status = Ö 


PRNTFLG LDA 
STA 
BEQ 
INC 
LDX 
JSR 


* Berechne de 


L38 LDA 
ASL 
ADC 
ASL 
TAY 
LDA 
JSR 
LDA 
JSR 
LDY 
JSR 


und den 


LDA 
ASL 
ADC 
ADC 
TAY 


* Kopiere die 


LDX 
L39 LDA 
STA 
DEY 
DEX 
BPL 


zwei Summen des Flags (für 
bzw. 1) aus. 


+9 

STATUS 

L38 ‚immer! 
STATUS 

#8 

PRBL2 


n Index des Namens 
FLAG 

STATUS 

FLAGNAME, Y 

COUT 

FLAGNAME+1,Y 

COUT 
#+TXTGLHZ-TEXT 
PRNTTXT 

Index des Zählers. 
FLAG 

FLAG 

#9 

Zahl nach HEXWERT ... 
#2 


(BLOCKPTR) ,Y 
HEXWERT, X 


L39 


* ... und subtrahiere sie gegebenenfalls 


* (Status = | 


LDA 
BEQ 


SEC 
LDX 
LDY 
LDA 
SBC 
STA 
INX 
INY 
TXA 
EOR 
BNE 


* Gib sie in 


L4l JSR 
JSR 
LDA 
BEQ 


* Liegt das i 


DEC 
BNE 
LDY 
JSR 


BLOECKE 


Dieses Programm wurde mit 
erstellt. Bei der Konvert 
Format wurden die lokalen 
bis L42 umgewandelt. 


) von der Gesamtsumme. 


STATUS 
L4l 


+9 

+4 
(BLOCKPTR),Y 
HEXWERT, X 
HEXWERT, X 


+3 
LA® 


Dezimaldarstellung aus. 


HEXDEZ 
PRNTDEZ 
STATUS 
L37 


nteressante Flag schon vor? 


IDENT 

L42 
#TXTBRNCH-TEXT 
PRNTTXT 


dem S-C Macro Assembler 
ierung in das Big-Mac- 
Labels in die Labels Ll 


FLAG.MONITOR.TEST 


309: AC 30 93 


oo oı9u1 Pwı Dr 


KRRRKRTRTTTEEIEIIII EK % 


FLAG.MONITOR. TEST 


Michael G. Schneider 


* 
* 
* 
* 
* 


FKERKKHFKFKÄRKKFEKRFEKRFEKRFEKRF KT KT FH TI FH N IK FE HE KH A + 
ORG $399 


JMP START 


* eG eG ep 
WERT EQU $E® 
INITIAL EQU $800® 


MONITOR EQU $8003 
DRUCKEN EQU $8006 


#%-—----- nen 


IMPL1 CLC 
LDA WERT 
IMPL11 ADC WERT 
JSR MONITOR 
BCC IMPLI1 


IMPL2 LDA 

IMPL21 ASL 
JSR MONITOR 
BPL IMPL21 

IMPL22 ADC WERT 
JSR MONITOR 
BCC IMPL22 
RTS 


% 1 


IMPL3 LDA WERT .s 

IMPL31 ASL 7 
JSR MONITOR an 
BCC IMPL31 ;2/3 

IMPL32 SBC WERT ‚3 
JSR MONITOR i—— 
BCS IMPL32 ;2/3 
ADC WERT ;ö 
RTS 


*—-—-—-—-—-—- —-—----——- —- - - - - - - - -  - - - - - - - 


START JSR INITIAL 
LDA #2 
STA WERT 

LOOP JSR IMPL3 
JSR IMPL2 
JSR IMPL1 
INC WERT 
JSR MONITOR 
BPL LOOP 
JSR DRUCKEN 
RTS 


Zum Ausprobieren dieser Utility laden Sie mit BLOAD FLAG 
‚MONITOR und BLOAD FLAG.MONITOR.TEST die beiden Pro- 
gramme, schalten den Drucker mit PR#1 ein und starten das 


Demo mit CALL 768. 
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Tıps und Tricks 


ın Pascal 








Teil 2: Kann man den P-Code optimieren? 


Um die Antwort gleich vorwegzunehmen: 
Sie lautet „ja“. Die Methoden, um dies zu 
erreichen, sind mannigfaltig und bedürfen 
keiner Spezialkenntnisse. Jeder Pascal- 
Programmierer, ob Anfänger oder Fortge- 
schrittener, kann sich leicht ein paar „gol- 
dene Regeln“ merken, die jedes Pascal- 
Programm kürzer und schneller machen. 
Um diese Regeln aufzustellen, muß man 
sich sehr gut im sog. P-Code auskennen. 
Genaue Untersuchungen zeigen nämlich, 
daß man den Code eines Programms 
durchaus verkürzen kann, ohne dessen 
Funktion zu ändern. 

Ein einfaches Beispiel aus der Maschinen- 
sprache wäre etwa die Benutzung eines 1- 
Byte-Zählers, der innerhalb statt außerhalb 
der Zeropage liegt. Ein DEC-Befehl ver- 
mindert einen solchen Zähler, gleich wo er 
sich befindet — nur der Zeropage-DEC- 
Befehl ist sowohl kürzer als auch schnel- 
ler. 


Was ist P-Code? 


Bevor ein Programm ausgeführt werden 
kann, muß es vom Compiler übersetzt 
werden. Der Code, der bei diesem Über- 
setzungslauf entsteht, ist kein 6502-Ma- 
schinencode, sondern ein Pseudo-Code 
(P = Pseudo) für eine fiktive bzw. hypo- 
thetische Maschine, die in dieser Form gar 
nicht existiert. Diese Maschine wird soft- 
waremäßig emuliert. Dabei wird jeder P- 
Code-Befehl vom P-Code-Interpreter ab- 
gearbeitet. Diese Methode ist quasi eine 
Zwischenlösung zwischen reiner Überset- 
zung (z.B. vom BASIC- oder Pascal- 
Quelltext in die Maschinensprache) und 
reiner Interpretation (z.B. des Applesoft- 
Quelltextes durch den Applesoft-Inter- 
preter). 


40 


Der P-Code selbst ist ein sehr kompakter 
Code, der äußerst viele 1-Byte-Befehle 
kennt, so z.B. für alle aritnmetischen 
Ganzzahl- oder Fließkomma-Operationen. 
Dies erklärt auch, warum der Code von 
sehr langen Programmen relativ kurz ist 
und auch in Maschinen mit wenig Spei- 
cher (64K) ablaufen kann. 


Regel 1 
(Kurze-Variablen-Regel) 


Es gibt P-Code-Befehle, um auf die ersten 
Variablen, die in einem Programm oder 
einer Prozedur definiert wurden, zuzugrei- 
fen. Von diesen speziellen Befehlen gibt 
es 16 für globale Variablen und 16 für 
lokale Variablen. Diese 1-Byte-Befehle 
beinhalten dann nicht nur die Operation, 
sondern auch den Operanden. 

Jeder dieser Befehle kann ein Wort (16 
Bits) laden, also Variablen vom Typ Inte- 
ger, Char, Boolean, Pointer und Adressen. 
Das bedeutet, daß die ersten 16 Variablen 
eines Programms oder einer Prozedur 1- 
Wort-Variablen sein sollten, also keine 
großen Arrays oder Records, Files oder 
Strings. Es kommt also lediglich auf die 
Reihenfolge der Definition der einzelnen 
Variablen an. 

Wenn man dies beachtet, kann man bis zu 
zwei Bytes pro Ladebefehl einer solchen 
Variablen sparen. Ein Ladebefehl tritt z.B. 
bei der Zuweisung 

A:=B 

auf. B wird geladen und dann in A gespei- 
chert. Beispiel 1 macht deutlich, daß hier 
der Code kürzer ist und trotzdem dasselbe 
leistet. Regel 1 möchte ich deswegen die 
Kurze-Variablen-Regel nennen. Sie be- 


von Dieter Geiß 


sagt, daß man kurze Variablen, d.h. ein 
Wort umfassende Variablen, für die ersten 
16 Variablen wählen sollte, und zwar so- 
wohl im Programm (globale Variablen) als 
auch in jeder Prozedur (lokale Variablen). 
Man hat also lediglich auf die Reihenfolge 
der Definition der Variablen zu achten. 


Sind die ersten 16 Variablen deklariert, 
sollte man trotzdem nicht gleich die gro- 
Ben Variablen dahinter definieren, sondern 
weiterhin die kleinen zuerst. Denn bei den 
Variablen, deren relative Adresse im Spei- 
cher zwar größer als 16, aber noch kleiner 
als 127 ist, kann man pro Ladebefehl we- 
nigstens ein Byte sparen. 

Es wird zwar kaum ein Programm geben, 
das 127 globale Variablen benutzt, aber 
ein Array [1..100] of Integer kostet ja auch 
100 Worte, ein String 1-128 Worte, so daß 
man eventuell schnell an die Zahl 127 
herankommt. Für die Regel gilt nämlich 
immer die Anfangsadresse der Variablen, 
die sich im Bereich 1 bis 16 bzw. 17 bis 
127 befinden sollte. Die Anfangsadresse 
jeder Variablen erhält man durch ein Com- 
piler-Listing mit der (*$Lx)-Option (s.a. 
Apple Pascal Language Reference Manu- 
al, S. 65). 

Man beachte, daß auch die Parameter ei- 
ner Prozedur zu deren lokalen Variablen 
gerechnet werden. Dasselbe gilt für die 
Programm-Parameter Input und Output. 
Diese belegen die beiden ersten Adres- 
sen der globalen Variablen eines Pro- 
gramms. Sie sind jeweils nur ein Wort 
lang, da es Zeiger-Variablen sind, die auf 
die File-Deskriptoren von Input und Out- 
put zeigen sollen, aber in der UCSD-Ver- 
sion nicht benutzt werden. Um Input und 
Output anzusprechen, werden intern viel- 
mehr direkt die Input- und Output-De- 
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skriptoren des Pascal-Systems über einen 


sog. „Intermediate“-Aufruf angespro- 
chen. Dies soll hier aber nicht weiter aus- 
geführt werden. 

Für Units gilt die Regel analog. Bei den 
Intrinsic-Units gibt es jedoch keine globa- 
len Variablen, sondern die „Extended“- 
Variablen. Das sind diejenigen, die im In- 
terface- oder im Implementation-Teil er- 
klärt wurden und dann ein Data-Segment 
brauchen. Für diese Variablen gibt es kei- 
ne ganz kurzen Ladebefehle, aber bei den 
ersten 127 (kurzen) Variablen kann man 
analog zu oben jeweils ein Byte pro Lade- 
befehl sparen. 

Bei normalen Units gilt diese Regel nicht. 
Die dort erklärten Variablen gehören zum 
Hauptprogramm, sind also globale Varia- 
blen, deren Adresse erst durch den Linker 
festgelegt wird. Da der Compiler während 
des Übersetzens nicht weiß, wieviel Platz 
er reservieren muß, werden für jeden La- 
debefehl 3 Bytes, also das Maximum, re- 
serviert. 


Regel 2 
(Lokale-Variablen-Regel) 


Nun zur zweiten Regel, die ich Lokale- 
Variablen-Regel nennen möchte. Man 
sollte darauf achten, lieber viele lokale Va- 
riablen in einer Prozedur zu definieren, als 
Variablen zu benutzen, die um ein oder 
mehrere Glieder in der statischen Ver- 
weiskette zurückliegen. Das Zurückgrei- 
fen auf diese Intermediate-Variablen ko- 
stet nämlich drei bis vier Bytes gegenüber 
einem Byte bei einer kurzen lokalen Varia- 
blen. 

Benutzt man also in mehreren Prozedu- 
ren, die den gleichen statischen Vorgän- 
ger haben, eine Indexvariable |, so emp- 
fiehlt es sich, diese nicht in der Vorgänger- 
prozedur ein einziges Mal zu erklären, 
sondern jeweils einmal lokal in jeder der 
Prozeduren. Das schützt auch vor unge- 
wollten Seiteneffekten. Zu dieser Regel 
siehe auch Beispiel 2. 


Regel 3 
(Record-Regel) 


Die Record-Regel besagt etwas Ähnli- 
ches wie die Kurze-Variablen-Regel. In ei- 
nem Record werden die ersten 8 (kurzen) 
Variablen bevorzugt behandelt und mit 
kurzen Ladebefehlen geholt. Dies gilt aber 
nur dann, wenn dessen Adresse auf dem 
Stack liegt, also wenn der Zugriff auf ein 
Element des Records über eine Zeigerva- 
riable (Pointer) oder über einen Var-Para- 
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meter einer Prozedur erfolgt. Im übrigen 
sollte man in einem solchen Fall zusätz- 
lich, sooft es geht, einen With-Befehl be- 
nutzen. 


Beispiel 3 zeigt die Ausnutzung der Re- 
cord-Regel. Auch hier werden die Varia- 
blen mit Adresse 8 bis 127 mit kürzeren 
Befehlen behandelt als die restlichen. 


Regel 4 
(Leer-String-Regel) 


Wenden wir uns jetzt den Strings zu. Dort 
gibt es ebenfalls eine Reihe von Regeln, 
die man beachten sollte. Die Leer-String- 
Regel gilt für den Test, ob ein String leer 
ist oder nicht. Grundsätzlich gibt es dazu 
zwei Möglichkeiten: 

a)fS="then..., 

b) If Length (S) = O then..., 

wobei S vom Typ String ist. Obwohl der 
zweite Ausdruck komplizierter aussieht, 
erzeugt er weniger Code. 


Regel 5 
(Concat-Regel) 


Die Concat-Regel für Strings besagt, daß 
der Concat-Befehl möglichst vermieden 
werden sollte. Will man einen String an 
den Anfang oder das Ende eines anderen 
Strings setzen, dann sollte man das mit 
dem Insert-Befehl erledigen, d.h. im Klar- 
text: Statt 
S := Concaät (S, T) 
sollte man 
Insert (T, S, Length (S) + 1) 
und statt 

:= Concat (T, S) 
sollte man 
Insert (T, S, 1) 
benutzen. 
Der Grund für diese Regel liegt darin, daß 
es in UCSD-Pascal (im Gegensatz zu Mo- 
dula-2 unter dem UCSD-System) nicht er- 
laubt ist, Funktionen zu definieren, deren 
Funktionswert mehr als zwei Worte (für 
Reals) beträgt. Nun ist aber Concat eine 
solche Funktion. Intern wird der Aufruf von 
Concat durch einen Prozeduraufruf er- 
setzt. Dazu muß der Compiler eine Hilfs- 
variable (Funktionswert) anlegen, die zu- 
dem erst einmal initialisiert werden muß. 
Ein Concat-Aufruf mit zwei Argumenten 
resultiert dann in zwei internen Aufrufen 
einer Concat-Prozedur (nicht Funktion), 
die eigentlich „Sconcat“ heißt und im Pas- 
cal-System selbst definiert ist (Segment 
#0, Prozedur #23). Bei Insert dagegen 
erfolgt der Aufruf ohne Hilfsvariable. 
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Regel 6 
(Konstanten-Regel) 


Die Konstanten-Regel gilt für String-, 
Long-Integer- und Set-Konstanten. Bei 
den String-Konstanten (const KString = 
'Dies ist ein konstanter String’) wird jedes- 
mal, wenn eine solche Konstante einer 
String-Variablen zugewiesen wird, der 
konstante String im Code eingebettet. Bei 
zehn Zuweisungen des gleichen konstan- 
ten Strings an zehn Variablen wird also der 
zehnfache Speicherplatz des einen kon- 
stanten Strings „verbraten“. Weist man 
jedoch diesen konstanten String zuerst ei- 
ner neuen Stringvariablen zu 

KStrVar:= KString 

und benutzt diese zur Zuweisung an die 
zehn anderen Variablen, kann man den 
Code kompakter machen. 

Bei den Long-Integer-Konstanten verfährt 
der Compiler denkbar ungünstig. Hat man 
eine konstante Long-Integer-Zahl (const 
MaxLong = 999999...) mit z.B. 36 Stellen 
definiert und weist diese dann einer Long- 
Integer-Variablen zu (z.B. Long:= Max- 
Long), so ergibt sich etwa derselbe Code, 
als wenn man ähnlich dem Horner-Sche- 
ma den Ausdruck 

Long:= ((9999 *& 10000 + 9999) * 10000 
+ 9999) & 10000... 

berechnen würde. Dabei werden die Inte- 
ger-Konstanten 9999 und 10000 vorher in 
Long-Integer-Konstanten umgewandelt. 
Das ganze kostet dann über 190 Bytes für 
die eine einzige Zuweisung! Hat man z.B. 
zehn solcher Zuweisungen, so werden 
fast 2K benötigt. Eine Verkürzung ist mög- 
lich, wenn man wie bei den konstanten 
Strings verfährt und nur einmal einer Va- 
riablen die konstante Long-Integer-Zahl 
zuweist 

MaxLongVar:= MaxLong 

und dann immer diese Variable statt der 
Konstanten benutzt, d.h. 

Long:= MaxLongVar 

statt 

Long := MaxLong. 

Ähnliches gilt auch für konstante Mengen 
(Set). Statt zwanzigmal eine Abfrage wie 
If C in [’a’..’z’] then... 

zu benutzen, sollte man eine neue Varia- 
ble einführen 

Var Klein: Set of Char 

und diese dann initialisieren 

Klein:= [’a’..’z’], 

um die Abfrage in 

If C in Klein then... 

umwandeln zu Können. 
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Regel 7 
(Compiler-Regel) 


Die Compiler-Regel bezieht sich auf die 
beiden Optionen (x$R-x) und (x$I-x), die 
auch im Apple Pascal Language Referen- 
ce Manual auf den Seiten 67 und 63 be- 
schrieben werden. Mit R- wird das soge- 
nannte Range-Checking unterbunden, 
d.h. Subrange-, Array- und String-Zugriffe 
werden nicht mehr dahingehend über- 
prüft, also ob sie in den jeweils gültigen 
Grenzen liegen oder nicht. 

Die (*«$R-*)-Option bringt immerhin drei 
bis fünf Bytes pro Array- oder Subrange- 
Zugriff. Dies spart bei sehr langen Pro- 
grammen, die ständig auf Arrays zugrei- 
fen, möglicherweise mehrere tausend 
Bytes. Programme mit der R-Option laufen 
dann natürlich auch etwas schneller. 
Anwenden sollte man ein R-Option aber 
nur, wenn man sicher ist, daß Index und 
Subrange-Grenzen nicht über- oder un- 
terschritten werden. Normalerweise kann 
man sich nur sicher sein, wenn man sein 
Programm verifiziert hat. Aber wer macht 
das schon? 

Durch die (*$I-*)-Option spart man zwei 
Bytes pro I/O-Befehl, d.h. bei jeder Read-, 
Write-, Get-, Put-, Reset-, Rewrite-Anwei- 
sung usw. Auch hier muß man mit größter 
Vorsicht arbeiten, da bei nicht stattfinden- 
der I/O-Prüfung ein Programm nicht ab- 
bricht, wenn ein entsprechender Fehler 
auftritt. 

Hat man jedoch viele Bildschirmausgaben 
in seinem Programm, kann man dort ge- 
trost die I-Option einschalten, denn der 
Bildschirm wird als Ausgabegerät nie „off- 
line“ sein, es sei denn, die Firmware der 
80-Zeichenkarte wäre defekt. 

Ähnliches gilt für die Eingabe von der Ta- 
statur, die ja eigentlich immer da sein soll- 
te. So kann man bei jeder Eingabe von der 


Für lic und Ile mit 64K-Karte 


SUPERPLOT 


Double-Hires-Utility 


von Karl-Walter Bott, 1984, Programmdiskette und Manual, DM 48,— 





Tastatur, also bei jedem Read (Input, ...), 
und jeder Ausgabe auf den Bildschirm, 
also bei jedem Write (Output, ...), die 0.9. 
zwei Bytes einsparen. 


Regel 8 
(Standard-Prozedur-Regel) 


Es gibt noch weitere, jedoch mehr pro- 
grammiertechnische Kniffe der Code- 
Komprimierung, die wir unter der Stan- 
dard-Prozedur-Regel zusammenfassen 
wollen. Diese Kniffe verkürzen auch den 
Code, haben aber überdies den Vorteil, 
daß sie die gestellte Aufgabe zügiger erle- 
digen. Es handelt sich dabei um die Benut- 
zung der schnellen UCSD-Standard-Pro- 
zeduren Fillchar, Moveleft und Moveright. 
Als Aufgabe sei die Initialisierung eines 
zweidimensionalen Arrays gestellt, der die 
Grenzen 0..Xmax und 0..Ymax habe. Ein 
Algorithmus, um eine solche Matrix auf O 
zu setzen, ist einfach und im Beispiel 4 
nachzulesen. Die zweite Version ist aber 
wesentlich effektiver, spart etwas Code 
und noch mehr Zeit. 

Um die Prozedur Moveright zu demon- 
strieren, sei die Aufgabe gestellt, ein Ele- 
ment in einen Array an der x-ten Stelle 
einzufügen. Statt nun mit einer For-Schlei- 
fe alle Elemente hinter der x-ten Stelle 
nach hinten zu schieben, geht dies auch 
mit einem einzigen Befehl (Beispiel 5). 
Das gleiche gilt für das Entfernen eines 
Elements aus einem Array. Auch hier ge- 
nügt ein Befehl für das Verschieben (s. 
Beispiel 6). 

Für die letzten drei Beispiele spielt die 
Sizeof-Funktion eine große Rolle. Benutzt 
man diese anstelle einer konstanten Zahl, 
so kann man sichergehen, daß nicht aus 
Versehen zuviel gelöscht oder verscho- 
ben wird. 


Zusammenfassung 


Zum besseren Überblick hier noch einmal 
alle Regeln kurz zusammengefaßt: 
Kurze-Variablen-Regel: Durch eine ge- 
schickte Reihenfolge definiere man die 
kurzen (1-Wort-Variablen) jedes Pro- 
gramms und jeder Prozedur zuerst. 
Lokale-Variablen-Regel: Man benutze 
möglichst lokale Variablen. 

Record-Regel: In einem Record definiere 
man ebenfalls die kurzen Variablen zuerst. 
Leer-String Regel: Man benutze zum Te- 
sten leerer Strings die Length-Funktion. 
Concat-Regel: Man ziehe die Insert-Pro- 
zedur der Concat-Funktion vor. 
Konstanten-Regel: Man benutze nicht zu- 
viele Zuweisungen von String-, Long-Inte- 
ger- und Set-Konstanten. 
Compiler-Regel: Die beiden Optionen R- 
und |- sollten sooft wie möglich benutzt 
werden, aber nur wenn Indexüberschrei- 
tungen unmöglich sind bzw. kein I/O-Feh- 
ler in einem (Teil-)Programm auftreten 
Kann. 

Die Standard-Prozedur-Regel: Man pro- 
grammiere mit Hilfe der Standard-Proze- 
duren Fillchar, Moveleft und Moveright so- 
wie der Standard-Funktion Sizeof statt mit 
For-Schleifen. 


Für Pascal 1.2 (128K-System) gibt es 
noch eine Möglichkeit, eventuell viel Spei- 
cher zu sparen, da es dort im Speicher 
Bereiche geben kann, die miteinander 
identisch sind. Von diesen Bereichen kann 
dann die Kopie gelöscht werden (Crun- 
ching). Doch dazu mehr im nächsten Bei- 
trag. 


[ 


SUPERPLOT ist eine neue, ungewöhnlich kompakte und schnelle Ampersand-Utility für Double Hires, die einschließlich eines 
vollständigen ASCII-Shape-Zeichensatzes wahlweise in Bank 1 oder Bank 2 der Language Card liegt und damit sowohl unter 
ProDOS als auch unter DOS 3.3, falls letzteres in die LC-Bank geschoben wurde, benutzt und in eigene Applesoftprogramme 
integriert werden kann. SUPERPLOT unterstützt die üblichen HGR-Befehle, denen lediglich ein & vorangestellt werden muß, 
also z. B. & HPLOT 500, 100 TO 500, 150 usw. SUPERPLOT ist speziell für das Plotten von beschrifteten wissenschaftlichen 
Funktionskurven mit hoher Auflösung gedacht und weniger für HGR-Spiele. 
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Beispiele zur P-Code-Optimierung 
Beispiel 1 


(*$L BSPIALST.TEXTx) 
program Bspla (input, output); 


var A : array [3..127] of integer; 
: integer; (*beginnt bei Adresse 128x) 
integer; 
integer; 


(*$L BSP1BLST.TEXTx) 
program Bsplb (input, output); 


(*xDas Programm leistet dasselbe wie Bspla, 
ist aber 8 Byte kuerzerk«) 


var I : integer; (*beginnt bei Adresse 3x) 
J : integer; 
K : integer; 
A : array [3..127] of integer; 


m 
a 


begin 
I:=J; 
J:=K 
E:=1I 
A [3] := 
end. 


’ 


Beispiel 2 


(*$L BSP2ALST.TEXTx) 
program Bsp2a (input, output); 


procedure Aussen; 

var I : integer; (*Laufvariable fuer 3 Prozeduren«) 
procedure Innenl; 
begin 


for I := ® to 9 do (x*irgendwask) 
end; 


en 


procedure Innen2; 


begin 
for I := 19 to 19 do (*irgendwas«) 
end; 


rm 


1 
1 
3 
1 
1 
1 
2 
1 
1 
d 
9 
4 
8 
1 
1 
9 
9 
4 
8 


er 


procedure Innend; 
begin 
for I := 2® to 29 do (xirgendwas«) 


end; 


begin 
end; 


begin 
end. 


(*$L BSP2BLST.TEXT«) 
program Bsp2b (input, output); 


(*xDas Programm leistet dasselbe wie Bsp2a, 
ist aber 18 Byte kuerzerk) 


procedure Aussen; 
procedure Innen]; 
var I : integer; (xlokale Laufvariablex) 
begin 
for I := ß to 9 do (xirgendwasx) 
end; 


procedure Innen2; 


var I : integer; (x*lokale Laufvariablex) 


DH HD HS Od - r rPrH OS U Wr SO DS CS 0 AGSGSH FH 
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NH 


Nr 
SSVDSS DH- SSVDVYHrH-HFDHrO08S 


rm 


begin 
for I := 1® to 19 do (*irgendwas«) 
end; 


procedure Innen; 
var I : integer; (*lokale Laufvariablex) 
begin 

for I := 29 to 29 do (x*irgendwask) 


end; 


begin 
end; 


begin 
end. 


Beispiel 3 


> 


a a a WW a ı a a Hm 


MKaua%hßh 


1 
l 
3 
6) 
3 
3 
1) 
6) 
3 
6) 
6) 
4 


(*$L BSP3ALST.TEXTx) 
program Bsp3a (input, output); 


type Rec = record 
array [®..127] of integer; 
integer; (*»beginnt bei Adresse 128x) 
integer; 
integer 


var Recl 


procedure Doit (var R : Rec); 


then 
.K then R.A [9] 


(*$L BSP3BLST.TEXT*) 
program Bsp3b (input, output); 


type Rec = record 
integer; (*beginnt bei Adresse fx) 
integer; 
integer; 
array [®..127] of integer 


var Recl 
procedure Doit (var R : Rec); 


begin 
with R do 
if I= J then 
if J=KthenA [ß] :=1 
end; 


begin 
Doit (Recl) 
end. 


Beispiel 4 


SO UWN DH HH HF OO OU HH 


m 
> 


QI Wo 
FPFHrHHrHHrOaJ 





(*x$L BSPALST.TEXT«) 
program Bsp4 (input, output); 


var A : packed array [®..1®0, ®..100] of boolean; 
procedure Bsp4a; 


var I : integer; 
J : integer; 


begin 
for I := ® to 199 do 
for J := 9 to 180 do A [I, J] := 
end; 


procedure Bsp4b; 


(*kostet bei gleicher Leistung 48 Bytes 
weniger als Bsp4ax) 
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® begin 
begin ® end; 
fillchar (A, sizeof (A), false) 12 
end; procedure Bsp6; (x*Ausfuegen«) 
begin procedure Bsp6a (X : integer); 
end. 
var I : integer; 
for I :=X+1 to 198 do A [I-\1]) :=A [I]; 
(*$L BSP5LST.TEXT«) end: 
program Bsp5öund6 (input, output); 


PGSSSUDDHrHr-H 


a» 


procedure Bsp6b (X : integer); 
type Element = integer; (*oder ein record...*) 


(*xspart gegenueber 6a 12 Bytesk) 
var A : array [®..100] of Element; 
begin 
moveleft (A [X + 1], A [X], (188 - X) 
* sizeof (Element)); 
end; 


procedure Bsp5; (*Einfuegen«) 


procedure Bsp5a (X : integer; E : Element); 


> DD 
SS DVDS SS 99: 9599 DVDDH 


var I : integer; 


begin 
for I := 
A [X] := 
end; 


rm 


9 downto Xdo A [I+1] :=A [I]; 


[eN © 
OS O8 AW Ur Fr Hr BUWN U WU UV r - 


9 
E 
procedure Bsp5b (X : integer; E : Element); 
(*xspart gegenueber 5a 14 Bytes) 
begin 
moveright (A [X], A [X + 1], (1088 - X) 
* sizeof (Element)); 


Hinweis: Die Zahlen an den Zeilenanfängen sind die Word-Offsets 
für den Speicher bzw. Byte-Offsets für den Code. 


SUPERQUICK 


Ein superschnelles Disketten-Kopierprogramm 
von Arne Schäpers, 1985, Programmdiskette mit Anleitung, DM 48,— 


Mit SUPERQUICK ist es möglich, Disketten jeden Formats (DOS 3.3, ProDOS, UCSD- 
Pascal und CP/M) in einer unglaublich kurzen Zeit von nur 29 Sekunden (mit Formatie- 
rung) zu kopieren. Bei entsprechender Speichererweiterung kann der gesamte Disket- 
teninhalt eingelesen werden, um mehrere Kopien anzufertigen. Die Zeit für eine Einzel- 
kopie reduziert sich dann auf sage und schreibe 19 Sekunden. 


SUPERQUICK erkennt die 64K-Karte (in Slot 3) des Apple Ile und IIc sowie eine 16K- 
Language-Card in Slot O und bezieht diese selbständig als Datenpuffer ein. Darüber hin- 
aus werden die IBS-Karten AP17 in den Ausbaustufen 64K bis 256K automatisch unter- 
stützt und gegebenenfalls als weitere Puffer eingesetzt. 


Eine Anpassung an Laufwerke mit höherer Spurenzahl (bis 80 Spuren, 160-Spurlauf- 
werke können nach manuellem Side-Select ebenfalls betrieben werden) ist ohne 
Schwierigkeiten aus dem Programm-Menü heraus möglich. 
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Verkaufe neuwertigen Typenrad- 
drucker mit Apple-Interface. 
Preis auf Anfrage. Tel. 007 


Neu im Angebot: Professionelle, 
separate Tastatur für Apple Il 

plus 16 Funktionstasten und sepa- 
ratem Ziffernblock. 

Fa. Keyboard & Co. 
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AUFTRAG FÜR KLEINANZEIGEN 


Bitte veröffentlichen Sie in der nächsterreichbaren Ausgabe nachstehenden 
Text unter folgender Rubrik: 


[] suche Hardware [] suche Software [] Tausch UL] Verschiedenes 
[] biete Hardware [] biete Software [] Kontakte U] Chiffre 


Bitte jeweils 32 Buchstaben pro Zeile-einschließlich Satzzeichen und Wort- 
zwischenräume. Bitte Absender nicht vergessen. 
Chiffregebühr DM 6,— zuzügl. MwSt. 
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Zu der in »peeker«, Heft ‚ Seite 
[| Anzeige [| Produktbesprechung 











erschienenen 








über 








bitte ich um detaillierte Information. 
Ich wünsche [| Prospekt, Datenblatt [| Preisliste [| schriftliches Angebot [| tel. Rückruf 


Produkt und Bestellnummer aDM |gesamt DM 


gebe ich neben- 
stehende Bestellung 
unter Anerkennung 
Ihrer in der Anzeige 
genannten Liefer- und 
Zahlungsbedingungen 
auf. 








Unterschrift (für Jugendliche unter 18 Jahren der Erziehungsberechtigte) 
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Ich besitze folgenden Nicht-Apple-Computer: 





) 
vo Ich habe einen Zutreffendes ankreuzen: 
& D) Apple IIc DI Kompatiblen, Modell 
ag [1] Apple lle L] Macintosh 
[1] Apple Il Plus [] Lisa 
&; D) Apple Ill 
©) Ichbin 
& [] überwiegend Anwender [] kaufmännisch [] technisch 
Yu [I] überwiegend Programmierer in 
Dr [1 Basic [] Applesoft I] MBasic 
ie D) Pascal OD) Apple-Pascal DI) Turbo-Pascal 
- [I Assembler DI 6502 DI Z80 DI 68000. 








Vorname, Name 


es) 
& 
. 
En 
En 23 


"u 
r 
N 


Bitte veröffentlichen Sie den um- 
stehenden Text von____Zeilen 
a DM in der nächsterreich- 
baren Ausgabe von »peeker« 








Bei Angeboten: Ich bestätige, daß ich alle 
Rechte an den angebotenen Sachen besitze 






Datum Unterschrift 


Re: peeker- Börse 








DAB 


Karte bitte vollständig ausfüllen 


Vorname, Name 


Firma 


Straße 


PLZ/Ort 





Telefon mit Vorwahl 


Anschrift der Firma angeben, bei der Sie 
bestellen bzw. von der Sie Informationen 
wünschen 


- 
x 
K” 
7 
& 
a 








zz 


Karte bitte vollständig ausfüllen 





Vorname, Name 


Firma 





Straße 
PLZ/Ort 


Telefon mit Vorwan 


® 
5 
a; 
gQ 
= 





ANTWORTKARTE 


peeker-Börse 
Anzeigen-Service 


Dr. Alfred Hüthig Verlag 
Postfach 10 28 69 
6900 Heidelberg 1 


POSTKARTE 


Firma 


Straße 


PLZ/Ort 


POSTKARTE 


peeker 
Redaktion 


Postfach 10 2869 
6900 Heidelberg 1 





Br: 


Produkt- 





Karte 


Wünschen Sie 
weitere Informationen 
zu einem der im Heft 
vorgestellten 


Produkte ? 


Nichts einfacher als 


das. 

Produkt-Karte aus- 
füllen, mit 60-Pfennig 
frankieren und 
absenden. 


Vorher aber nicht 
vergessen: 
kreuzen Sie an, 
welchen Informations- 
wunsch Sie haben. 


Damit erleichtern Sie 
dem Hersteller 

eine gezielte Beant- 
wortung Ihrer Anfrage. 


Zum Schluß tragen 
Sie auf der Rück- 
seite die genaue 
Anschrift des 
Inserenten/Herstellers 
und Ihre vollständige 
Firmenanschrift ein. 





DEEKER 


AGAZIN FÜR APPLE-COMPUTER 





Fotosatz ohne Umwege! 


Durch Verknüpfung von EDV und Fotosatzanlage 
Vorteile über Vorteile - für Autoren und Verlage 





Sind Ihre Texte schon erfaßt oder möchten Sie 
diese selbst auf einem Computer erfassen? 
Dann sprechen Sie mit uns! 

Wir lesen und konvertieren Ihre Daten 

zu Fotosatz. 


Bei uns finden Sie Beratung und Service 
zur Buchherstellung vom Satz über den Druck 
bis zum Einband. 


Zechnersche Buchdruckerei 
= 6720 Speyer ‘ Daimlerstraße 9 * Postfach 2080 
Telefon (062 32) 33076-79 ‘ Telex 465167 
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Das Microsoft BASIC-80, auch MBASIC genannt, 
besitzt nicht nur eine große Verbreitung — MBASIC- 
Interpreter sind für fast alle Rechner verfügbar, die 
ein Betriebssystem wie CP/M oder MS-DOS benutzen — 
sondern auch etliche Befehle, die im Applesoft „durch 
Abwesenheit glänzen“ und nachträglich gepatcht 
werden müsssen. Dazu gehören die formatierte Zahlen- 
ausgabe (PRINT USING), die INSTR-Funktion, die 
Möglichkeit zum Löschen von Feldern und vieles mehr. 
Diese Erweiterungen vorzustellen und den erfahrenen 
Programmierer auf weitere syntaktische Unterschiede 
zum Applesoft hinzuweisen ist Ziel dieses Artikels. 





von Jörg Lange 


1. Laden des MBASIC-Interpreters 


Wie oben schon erwähnt, arbeitet MBA- 
SIC unter dem Betriebssystem CP/M, so 
daß zur Arbeit mit dieser Sprache neben 
der CP/M-2.2-Masterdisk, auf der sich der 
Interpreter befindet, auch eine im Apple 
installierte „Z80-Softcard“ benötigt wird. 


Hinweise hierzu sowie eine Einführung in 
die CP/M-Befehle, deren Kenntnisse aber 
für den Anfang noch nicht notwendig sind, 
finden Sie z.B. in dem Artikel „CP/M für 
Einsteiger“ im Peeker 4/1985. 


Nach dem Booten der CP/M-2.2-Master- 
disk meldet sich der Rechner mit dem 
CP/M-Prompt „A>“. Der Befehl „MBASIC 
<Return>“ startet den BASIC-Interpreter. 


Auf dem Bildschirm erscheint daraufhin 
eine Titelmeldung („BASIC-80 Rev. 5.2 
..) sowie das Bereitschaftszeichen 
„Ok“, das nach jeder erfolgreichen Pro- 
gramm- oder Befehlsausführung ausge- 
geben wird. 
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MBASIC für den 
Applesoft-Profi 


2. Verlassen des MBASIC 


Bevor es in das Detail geht, soll noch 
verraten werden, wie man MBASIC wieder 
verläßt: 

SYSTEM: Dieser Befehl bewirkt — nach 
der Schließung noch offener Dateien — die 
Rückkehr in das CP/M-Betriebssystem. 
Programm und Variablen gehen dabei ver- 
loren! 


3. Variablentypen 
und Typvereinbarungen 


Neben den bekannten Variablentypen 
String (A$) und Integer (A%) stellt MBA- 
SIC für Gleitkommazahlen (Real) zwei Ab- 
speicherungsmöglichkeiten zur Verfü- 
gung: die einfach genaue Real-Variable (A 
oder A!) mit 7 signifikanten Stellen, von 
denen im Regelfall aber höchstens 6 aus- 
gegeben werden, sowie den „Doublepre- 
cision“-Typ (A#), der intern mit bis zu 17 
Stellen verarbeitet wird. Ausgegeben wer- 
den aber hier auch nur maximal 16 Stellen. 












Neben der Typenvereinbarung durch ein 
an den Variablennamen angehängtes Zei- 
chen (Suffix) wie z.B „$“ oder „#“ gibt es 
die Möglichkeit, mit den DEF-Befehlen 
global Variablennamen mit bestimmten 
Anfangsbuchstaben einem Typ Zzuzu- 
ordnen. 


10 REM Beispiel 1 
20 DEFDBL I-M 
30 | = 2456.23 
40 J% = 54.46 
50 K = 145.35 


Durch den DEFDBL-Befehl in Zeile 20 
werden alle Variablen, deren erster Buch- 
stabe im Bereich „I“ bis „M“ liegt, im 
ganzen Programm zu Realvariablen dop- 
pelter Genauigkeit erklärt. Eine Suffix-Ver- 
einbarung hat jedoch Vorrang, so daß in 
unserem Beispiel | und K dem doppelt- 
genauen Typ zugeordnet werden, J% 
aber eine Integervariable bleibt. 

Eine Übersicht über Variablentypen und 
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Einige Applesoft-Befehle, die unter 
MBASIC/GBASIC bis einschließlich 
zur neuesten Version 5.27 fehlen: 


LOAD (Kassette) 
SAVE (Kassette) 
SHLOAD (Kassette) 
STORE (Kassette) 
RESTORE (Kassette) 
FLASH 

DRAW, XDRAW 
ROT 


SCALE 


PR#s, IN#s 


Hinweis: 

Ein Testbericht zur Microsoft-Premium- 
Card mit GBASIC 5.27 folgt im näch- 
sten Peeker. 





DEF-Befehle gibt Abschnitt A der Refe- 
renztabelle. 


4. Umwandlung von Zahlentypen 


MBASIC führt eine automatische Konver- 
tierung durch, wenn z.B. eine Real-Zahl 
einer Integervariablen zugewiesen wird. In 
einem solchen Fall wird immer zur nächst- 
kleineren ganzen Zahl abgerundet (A% = 
-0.1: PRINT A% ergibt -1!). Die Umwand- 
lung bei Realtypen von einfacher in dop- 
pelte Genauigkeit erfolgt durch Ergänzung 
von Nullen, in umgekehrter Richtung wird 
ggf. auf 7 Stellen gerundet. 

Der Vollständigkeit halber sei darauf hin- 
gewiesen, daß es zusätzlich BASIC-Funk- 
tionen zur Typumwandlung gibt, die je- 
doch nur in Sonderfällen benötigt werden. 
So wird in der Anweisung PRINT CINT 
(WERT#) der in den Typ Integer umge- 
wandelte Inhalt von WERT# ausgedruckt. 
Die Umwandlungsfunktionen sind eben- 
falls in der Referenztabelle Abschnitt A 
aufgelistet. 
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5. Konstanten — auch hexadezimal 


Neben der „gewöhnlichen“ Schreibweise 
(A = 7936) erlaubt MBASIC auch die Dar- 
stellung von Integerzahlen in hexadezima- 
ler (A = &HIFO00) oder in der weniger 
gebräuchlichen oktalen Form (A = 
&017400 bzw. A = &17400). Nach einer 
Verarbeitung im Rechner werden diese je- 
doch in Dezimaldarstellung überführt, so 
daß „PRINT &H1F00 + &HO100“ nicht 
etwa „&H2000° sondern „8192” ergibt. 


Wer auch eine hexadezimale Ausgabe 
wünscht, muß das dezimale Ergebnis mit 
der HEX$-Funktion erneut umwandeln: 
„PRINT HEX$ (8192) ergibt dann 
„2000“. 


6. Variablennamen 


Im Gegensatz zum Applesoft erlaubt 
MBASIC nur Variablennamen mit einer 
Länge von vierzig Zeichen. Davon werden 
aber alle zur Unterscheidung benutzt; 
RECHNUNG.DATUM und RECH- 
NUNG.SUMME sind zwei unterschiedli- 
che Variablen. Für den Namen selbst gibt 
es zwei Einschränkungen: Er darf nicht mit 
„FN“ beginnen oder gleich einem reser- 
vierten Befehlswort sein. So ist also 
„PRINT = 10° nicht erlaubt. Jedoch wäre 
„PRINTER = 10“ zulässig, womit ein ekla- 
tanter Unterschied zum Applesoft aufge- 
deckt ist, der manchem „Umsteiger“ an- 
fangs Kummer bereitet: „FORA=1TO10“ 
arbeitet im „normalen“ BASIC einwand- 
frei, MBASIC jedoch glaubt, eine Variable 
namens FORA entdeckt zu haben. Es muß 
also fein säuberlich „FOR A = 1 TO 10" 
geschrieben werden. 


Generell gilt im MBASIC, daß Befehlswor- 
te bis auf wenige Ausnahmen (z.B. CO- 
LOR=) von Leerzeichen eingeschlossen 
werden müssen (GOTO 100 statt GO- 
TO100). Auch ist darauf zu achten, daß 
Zweiwortbefehle wie LINE INPUT getrennt 
bleiben, da sie sonst nicht erkannt werden. 


In diesem Zusammenhang sei erwähnt, 
daß bei Feldelementen der Index unmittel- 
bar am Namen stehen sollte (A (1) statt 
A(1) bereitet u.U. Schwierigkeiten). Auch 
können Funktionen z.T. nur korrekt identi- 
fiziert werden, wenn die „(“ sofort dem 
Funktionsaufruf folgt (TAB(10) ist korrekt, 
aber TAB (10) wird zum Arrayelement!). 


Letzteres Phänomen dürfte auch dem Ap- 
plesoftprogrammierer bekannt sein, was 
vielleicht nicht gerade Zufall ist, da beide 
Interpreter aus dem Hause Microsoft 
stammen! 





























































| ® 
electronic ; 
Re) Neue Preise # 9 
IBM-PC/XT-COMPATIBLE COMPUTER+ZUBEHÖR 
Mainboard XT f. 16bit+256K-RAM+B8 Slots, Leerkarte 
Disk Controller leer (f. 4 x 360KB-Drives) 
Monochrome Graph. + par. Printer Leerkarte (Hercules comp.) 
Color RGB + Video Graphik Leerkarte 
Parallel Printer Leerkarte 
512K-RAM Leerkarte 
Multi 1/O Leerkarte (Printer, Ser., Game, Uhr gepuffert) 
384K-Multi /O Leerkarte w.o 
Mainboard XT-16bit+ (bis 256K-aufr.) + 8SI. best. +gepr 
OK + Boot Eprom 
Mainboard w.o jedoch 256K-vollbest 
64KB-RAM-Chip-Aufrüstsatz(9 Stück) einzeln geprüft! 
Disk Controller gepr. (f. 4 x 360KB-Drives) 
Monochrome Graph. + par. Printer Karte gepr. (Hercules comp.) 
Color RGB + Video Graphikkarte gepr 
Parallel Printer-Karte gepr. o. Kabel (Extra Kabel = 75,—) 
512K-RAM-Karte gepr. (OKB) 
384K-Multi /O Karte, RS 232, par. Printer, Interf. Game/Joystick Port, 
Real Time Clock gepuff. OK + RAM-Disk/Spooler/Uhr Softw. 6} 
384K-Multi /O w.o. vollbest. + gepr 
Multi /O Karte (Par.+Ser.+Uhr gepuffert) gepr 
Profi-Funktionstastatur dt. oder ASCII+15er Block 
130W-Netzteil mit eingebautem Ventilator Kurzschlußfest 
360KB-Diskdrive Slimline ohne Gehäuse 
XT-256K-16bit Rechner (incl. Boot-Eprom)+360K-Drive + Contr. 
+F. Tastatur im IBM-look like Geh.+130W-Netzteil best+gepr. 
Lu) SE ae RGB + Video a k-Karte 

Mon 
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IBM- ren nheit + Laufwerk 
IBM deutsche DIN-Tastatur -- 
IBM-Bildschirm Color 1698,-- 
PC IB. Commadaes dt. Tast 4475,-- 
GENIE 16 C (256K-RAM bis 640K auf M-board) 2 x 360K-Drive, 

ser. + par. Printer - Int + Farbgraphik-16 Color-Karte + 

6 slots, - incl., nd Tastalu 4895,-- 

ir D 





Microsoft a header 
CPM 86 


Lotus 1-2-3 
Framework 
D-base Ill 


APPLE-BUS COMPUTERPLATINEN+PERIPHERIE 

Motherboard durchkontaktet mit Lötstoplack 66 
M-board Il 48K, gesockelt, vollbest.+gepr 385 
M-board II 64K+Z80 CPU, gesockelt, v.best. +gepr 395,-- 


M-board lie 64K vollbestückt+gepr 698,-- 
APOLLO Il Kunststoff-Leergehäuse 95,-- 
APOLLO II Gehäuse incl. Funkt.-Tast 275 
Leerplatine: 16K-RAM, Z80/CPU-, Controller DOS 3.3 

Parallel-Druckerkarte, Ser. Int. V24, 802/24Z-Karte 

PAL'-Modulatorkarte, je 18,95 
Entwicklungslochraster-Leerplatine durchkontaktiert 28,50 
16K-Speicher-Karte geprüft 85,- 
APPLE orig. 16K-Language Karte gepr 125 
Z-80 CPU-Karte geprüft 77.- 
Controller DOS 3.3-Karte geprüft 78,-- 
Auto-Controller DOS 3.2/3.3-Karte gepr 145 
Erphi AFDC 2 Controller + Autopatch Softw. + Handbuch 288,-- 
Parallel-Drucker-Karte geprüft 95 
8bit par. Grappler-Int.+64K-Buffer+Kabel gepr 555,-- 
Seriell-Interface-Karte V24 geprüft 99 
Super-Seriell-Interface Karte gepr 169 
80-Zeichen/24-Zeilen-Karte geprüft 119 
802/24Z-Karte+Softswitch-Schalter Leerplatine 45,-- 
80Z/24Z-Karte+Softswitch-Schalter geprüft 145,-- 
IEEE-488 Int. Karte gepr 375,-- 
PAL-Modulator/Color-Karte geprüft 99,-- 
PAL-RGB-Color Karte gepr 159,-- 
128K-Speicher-Leerkarte 39,- 
128K-Speicher-Leerkarte+ Software+ Manuel 99,-- 
128K-Speicher-Karte+Software geprüft 385,-- 
256K-Speicher-Leerk.+4 Spezial ICs+Software 195,-- 
256K-Speicher en +Software geprüft 495 
Maus incl. Softwar 188,--" 
EPROM-Burner (27 708 16/32/64) geprüft 119 
Modem Euronorm- _ gepr. + Software + Man 495,-- 
UHF/TV-Modulator u rsell 27,50 
Lüfter anclipsbar (220 v 95.-- 






Dataphon s21d Akusti vun opp ler an 275,-- 
APOLLO + “T. 678.-- 


APOLLO // (64K)+Disk u za + 2 -Moni to 

APOLLO //A (48K)-+Gr/Ki+15er-Tastatur ET +F-T. 
APOLLO //A (64K)+Disk II F+Contr.+12"-Mon 

APOLLO // ASKF (48K) vollbest. + gepr. Sep. Keyboard+Gr/Kl+ 
15er-Block mit Funkt.-Tasten ım „IBM-look like“ Gehäuse 
APOLLO // ASKF (48K) w.o + Disk II F + Contr 

APOLLO // ASKF (48K) w.o jedoch 2 x Disk II F + Contr 
Aufpreis für M-board // 64K+Z80 CPU 

APPLE-DuoDisk, 2 x 143 KB+Controller orig 

APPLE-Disk // grey +Kab. Dos 3.3+ProDOS orig. 


VlT,-- 
APPLE-Disk // (2. Laufw 666,-- 
Disk //+Contr.+Kabel Dos 3 3 rer n Geh 567 
Disk // (2. Laufwerk, Siem 498 
Green HIF-+Contr. +Kab, Dos 3. 3\ 1 2 Höhe Geh 456 
Dis F (2. Laufwerk, 1/2 Höhe) ı. Geh 387 
Erphi i Duo-Disk } ‚2 MByte incl. Netzteilt+Contr. 1999,-- 


Maus i Apple ncl. Manual+Software 188.-- 


era sr WEITEREN Te] 
APPLE-DOS 3.3 Manual engl. 

APPLE-DOS 3.3 Hb.dt, 

APPLE ProDOSHB + Disk orig. 
APPLE-Pascal Reference+Operating Manual engl 
APPLE-Pascal USCD 1.1. Disks+Manuals orig 
APPLE-Pascal Reference Hb. dt 

APPLE-Pascal Language Hb. dt 

APPLE-FORTH Manual engl 





re mern f. APPLE+compatible Geräte 
apple how to, apple soft tool kit, cp/m basic re jile han 
dbase // ver 24 wordstar + mailmerge + spellsta a Holen ogramm 
apple logo Eaenan alcstar, pfs file, pfs gre eg tport, apple 
fortran, cp He ze spitfire simulator an Es nguage 
flight simu a visicalc, visischedu = visitrend, multiplan, supersort 
microsoft re I micr Ku fo: yi az 25 aph+dbase utility 
PO O //e (64 S d 






LIze5867777 128K-+802/24Z. Karte 

APPLE //e 128K+802/24Z-Karte 

220 2077: (64K)+Disk II F+Contr+12” Eee 
-RAM-Karte geprüft 





APPLE //c (128K) dt. Tastatur 2495 
Z80 Karte gepr. f. APPLE //c+RAM-Disk-Software Hb 489.-- 
Macintosh System (128K) 6745,- 
Macintosh System (512K) 7545 
a Umrüstung von 128K auf 512K 998 






J M t ei 
EPSON “x 80+, "NEU" NEU* NEU® 949,-- 
EPSON RX 80+, 8bit/parallel 864 
EPSON RX 80F/T+, 8bit/parallel 1014 
EPSON RX 100+, 8bit/parallel 1289 
EPSON FX 80F/T+, 8bit/parallel 1314 
EPSON FX 100+, Bbit/parallel 1724,- 
EPSON LQ 1500+, Bbit/parallel 3295 
EPSON Traktoraufsatz für FX 80 129,50 
APPLE/EPSON-Drucker Graphic-Interface+Kabel 295 
MX 80/82, FX/RX 80 Spezialfarbband-Kassette 15,95 
BROTHER-Typenraddr. HR 15XL 8bit/par. neustes Mod B/,-- 
STAR SG10, NLQ- + IBM-Zeichensatz, 8bit/par 
Zenith ZVM 123 gr. 12" oder Zenith ZVM 122 or. 12" 15 MHz 
SANYO DM 2212 12" orange 15 MHz 295,-- 
SANYO 9112 Monochromer Monitor 12”, gr 587,50 
Monochromer 12"-Monitor entspiegelt gr. o. or. 22 MHz 389 
Disketten in Box + Aufkleber I. Wahi bei 10 
54" VerstärktBASF 3M FUJI 

SCOTCH 










1X, SS/SD 3,99/ 3,79 ‚8/3, 
4,39/ 4,19 4,88/ 4,58 4,57/ 4,37 3,96/3,76 2,75/2,65 
6,38/ 5,88 5,87/ 5,67 4,76/4,46 3,85/3,65 
[A172] 
8,18/ 7,68. 7,97/ 7,77 
IKKTJAPK N) 14,87/13,87 
4,49/ 4,39 


4,49/ 4,39 6,68/ 6,48 6,97/ 6,67 
4,79/ 4,59 8,58/ 8,28 
7,09/ 6,89 .9,88/ 9,58 10,17/ 9,77 
4,49/ 4,39  6,68/ 6,48 


10,99 9,99 10,08/ 9,88 
14,99/14,29 
3M- Scotch 54” Flüssig-Reinigungsset (2 Disk.) einseitig 48,95 





en 51a” " Reinigungsdiskette einseitig 48,50 
a" Disketten-Archivbox für 10 Disks (1 St./10 St.) 5,75/54,95 
5 «" Disketten-Archivbox für 15 Disks 3M 19,95 
54" Disk-Karteikasten Kun nststofl a. 80 Disk 26,50 
514" Disk-Karteikasten Kunststoff ke 80 a sk) Rauchglas 39,95 
5"4" Disk-K.K. Rauchglas, abschlie Bor (f. ca. 80 a8 En .. 47,50 
2000 BI. Tabpapier (24 cm x 12" iR ‚de 3 perf 45 
4000 Et-Aufkl. doppelr. (107 x 36 m Ber 240 x 19" y Sa Ti ägerp 66,50 


16000 Etiketten-Aufkleber w.o 249.-- 
4000 Etik.-Aufkl. einreih. (107 x 36 m 





f 125 x 12" perl. Träg.) 65 


OSZILLOSCOPE HAMEG ab Lager 
Bei Vorauszahlung frei Empfangsstation unversichert in der BRD, ausgenom- 
men Papier und Etiketten, sonst N.N.+V.S. ab DM 30,-- Preise incl. Mwst 


Öffnungszeiten: Mo, Di, Do, Frv. 10-18 h, Miu. Sa v. 10-14 h, la. Sav. 10-18 h 
Telef. Best.: Mo, Di, Do, Fr von 10-19 Uhr, Mi u. Sa wie Öffnungszeiten 


GEWÄHRLEISTUNG: 6 Monate, auf alle bei uns gekauften Geräte, durch 
unsere eigene Service-Werkstatt 

REPARATUREN an Apple + Compatible Geräten + Zubehör führt unser 
Speziallistenteam garantiert zuverlässig + besonders Kostengünstig aus 
Sprechen Sie mit uns. 


1 -YehigeJalle a 


Telex: 0772642 aaa-d 
Habsburgerstraße 134 
7800 FREIBURG, Tel. (07 61) 276864 
Bauelemente - Bausätze - uP's 
Meßgeräte - Zubehör - Fachliteratur 
Fachgeschäft für Elektronik + Mikrocomputer 
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7. Arrays 


Die Dimensionierung von Feldern mit dem 
DIM-Befehl geschieht genauso wie im Ap- 
plesoft. Neu ist jedoch dieser Befehl: 
ERASE FELD1, FELD2....: Die Arrays mit 
den angegebenen Namen werden ge- 
löscht und können neu dimensioniert wer- 
den, ohne daß man einen „Duplicate De- 
finition“-Fehler erhält. 


8. Befehle zur Programm- 
ablaufsteuerung 


Wie im Applesoft stehen unter MBASIC 
die Befehle GOTO, GOSUB, ON... GOTO, 
ON...GOSUB, RETURN und POP (letzte- 
rer ist nur in der Appleversion des MBA- 
SIC implementiert!) zur Verfügung. Bei al- 
len diesen Anweisungen ist jedoch auf das 
notwendige Einfügen von Leerzeichen 
(S.0.) zu achten. 


IF...THEN mit Alternative 


Neben dem üblichen IF-Befehl gibt es ei- 
ne weitere Form: 

IF logischer Ausdruck THEN Befehlsliste 1 
ELSE Befehlsliste2: Ist der logische Aus- 
druck wahr, wird die Befehlsliste 1 ausge- 
führt. Im anderen Fall verzweigt das Pro- 
gramm zur Befehlsliste2. Jede dieser Li- 
sten darf mehrere Befehle — wie im Ap- 
plesoft durch „:“ getrennt — enthalten; die 
gesamte IF-THEN-ELSE-Sequenz muß 
aber innerhalb einer Zeile stehen. Bei- 
spiel: 

20 IF X < 10 THEN 200 ELSE PRINT 
“ERROR!“: GOTO 5 

Erwähnt sei in diesem Zusammenhang, 
daß logisch „wahr“ im MBASIC dem Wert 
-1 entspricht (Applesoft: +1): PRINT3=3 
ergibt -1! 


Schleifen mit WHILE...WEND 


Für Programmschleifen existiert im MBA- 
SIC neben der „klassischen“ „FOR- 
NEXT“-Möglichkeit die WHILE-WEND- 
Anweisung, die vorzugsweise dann ange- 
wandt wird, wenn die Zahl der Durchläufe 
vor Schleifenbeginn nicht feststeht: 
WHILE logischer Ausdruck /Programm- 
zeilen/ WEND: Nach Prüfung des logi- 
schen Ausdrucks wird zur nächsten Pro- 
grammzeile nach dem WEND-Befehl ver- 
zweigt, wenn dieser nicht wahr ist. An- 
dernfalls werden die von „WHILE“ und 
„WEND“ eingeschlossenen Anweisungen 
ausgeführt. Danach wird erneut der logi- 
sche Ausdruck ausgewertet usw. 


10 REM Beispiel 2 / WHILE/WEND 
20 PRINT “WEITER ? J/N ?";: E$ = *" 
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30 WHILE E$ <> “J“ ANDE$ <> "N" 
40 GET E$ 
50 WEND 


Zu FOR...NEXT ist noch ein wichtiger 
Nachtrag zu machen: MBASIC prüft vor 
dem Schleifendurchlauf die Zählvariable, 
d.h. eine Anweisung des Typs „FORL=3 
TO 1“ wird nicht ausgeführt. Im Applesoft 
dagegen erfolgt immer mindestens ein 
Durchlauf. 


9. Anweisungen zur Fehler- 
behandlung 


Vom Applesoft her bekannte Anweisun- 
gen sind im MBASIC z.T. in erweiterter 
Form vorhanden: 

ON ERROR GOTO n: Beim Auftreten ei- 
nes Fehlers wird in eine Fehlerbehand- 
Iungsroutine in Zeile n verzweigt. ON ER- 
ROR GOTO O entspricht dem Applesoft- 
POKE 216,0: Die normale Fehlerbehand- 
lung (Ausgabe von Fehlermeldungen) wird 
wieder aktiviert. 

Eine Fehlerbehandlungsroutine muß mit 
einer RESUME-Anweisung enden: 
RESUME bzw. RESUME 0: Die Pro- 
grammausführung wird in der Zeile wieder 
aufgenommen, in der der Fehler auftrat. 
Anm.: Die applesofttypischen Schwierig- 
keiten in Verbindung mit diesem Befehl, 
z.B. mit FOR-NEXT-Schleifen, gibt es im 
MBASIC nach eigener Erfahrung nicht. 
RESUME NEXT: Wie RESUME, nur wird 
hier die nachfolgende Zeile ange- 
sprungen. 


RESUME n: Das Programm wird mit der 
Zeile n fortgesetzt. 

X = ERR: Der Variablen X wird die Num- 
mer des aufgetretenen Fehlers zugewie- 
sen (Applesoft: X = PEEK (222)). MBASIC 
kennt ungefähr vierzig verschiedene Feh- 
ler, auf die hier aus Platzgründen nicht 
näher eingegangen werden kann. 

X = ERL: Die Variable ERL enthält die 
Nummer der Zeile, in der der letzte Fehler 
auftrat. Das Applesoft-Äquivalent ist X = 
PEEK (218) + PEEK (219) & 256. Ein Tip: 
Um bei einer Neunumerierung des Pro- 
grammes mit der RENUM-Anweisung 
nicht alle ERL-Abfragen von Hand ändern 
zu müssen, sollte stets die Form „IF ERL 
= Zeile THEN“ benutzt werden, da derar- 
tige Ausdrücke von der RENUM-Funktion 
korrigiert werden, nicht aber z.B. „IF 100 
= ERL THEN“. 

ERROR n: Ein Fehler mit der Fehlernum- 
mer n wird künstlich erzeugt. Dies dient im 
wesentlichen zum Testen von Fehlerrouti- 
nen. Hinweis: n muß keine legale Fehler- 
nummer des Interpreters sein, d.h. der 


Programmierer kann neue Fehler mit eige- 
nen Nummern (empfohlener Bereich: 80 
< .n< 255) einführen. 


10. Funktionen im MBASIC- 
Sprachumfang 


Arithmetische Ausdrücke 


MBASIC kennt neben den üblichen 
Rechenarten die Integerdivision (5 \ 2 = 
2, dabei wird „\“ durch <Ctri-B> er- 
zeugt, auf deutschen Tastaturen entspricht 
„\“ dem „Ö“) und die MODULO-Opera- 
tion. Hierbei wird der ganzzahlige Rest 
einer Division ausgegeben: 9MOD4 = 1. 
Wichtig: Beide Funktionen wandeln die Ar- 
gumente vor der Berechnung in Integer- 
werte um, d.h. 12.4 MOD 3.9 wird zu 12 
MOD3=0! 


Mathematische Funktionen 


Alle unter Applesoft vorhandenen Funktio- 
nen — inklusive der DEF FN-Anweisung 
zur Selbstdefinition durch den Program- 
mierer — sind implementiert. Neu hinzu 
kommt: 

Y = FIX(X): Die Nachkommastellen von X 
werden abgeschnitten (Beispiel: FIX(1.9) 
=1). 

Die RND-Funktion zur Erzeugung von Zu- 
fallszahlen ist ebenfalls vorhanden: 

Y = RND(X): Ist X > 0, so wird eine neue 
Zufallszahl erzeugt, bei X = O wird die 
letzte Ausgabe wiederholt. Der große Un- 
terschied zum Applesoft liegt darin, daß 
bei jedem Neustart des Programmes die- 
selben Zahlen ermittelt werden, wenn der 
Zufallszahlengenerator nicht mit einem 
speziellen Befehl „eingeschaltet“ wird: 
RANDOMIZE INTEGER%: In Abhängig- 
keit des Inhaltes von INTEGER% wird der 
Startwert der Zufallszahlenreihe erzeugt. 
Wird keine Variable angegeben - also nur 
z.B. „IORANDOMIZE“ geschrieben - hält 
das Programm mit der Meldung „Random 
Number Seed (-32768 to 32767)?“ an und 
erwartet die Eingabe einer entsprechen- 
den Zahl. 


Funktionen zur Zeichenkettenverarbei- 
tung 


Zusätzlich zu RIGHT$, LEFT$, MID$, LEN, 
VAL, STR$, ASC und CHR$ sind vor- 
handen: 

X = INSTR (START, ORIGINAL$, VER- 
GLEICH$): Es wird — beginnend bei der 
Position START - ermittelt, ob der VER- 
GLEICH$ in ORIGINAL$ vorhanden ist. 
Bei positivem Ergebnis wird X die Posi- 
tionsnummer des ersten übereinstimmen- 
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den Buchstabens zugewiesen. Andern- 
falls erhält X den Wert Null. Der START- 
Parameter braucht nicht angegeben zu 
werden. Beispiel: INSTR("TEST",“ES“) 
= 2; INSTR(4,"APPLE","P") = 0. 

X$ = SPACE$(n): Es werden n Leerzei- 
chen erzeugt und der Variablen X$ zuge- 
wiesen. 

X$ = STRING$(n,QUELLES$): Das erste 
Zeichen von QUELLE$ wird n-mal in X$ 
abgespeichert. Beispiel: 
STRING$(3,"123“) ergibt „111“. 

Neben der MID$-Funktion gibt es in MBA- 
SIC auch einen MID$-Befehl, der das 
Austauschen von Zeichen in einer beste- 
henden Zeichenkette erlaubt: 
MID$(ZIEL$,p,n) = INSERT$: Der Inhalt 
von INSERT$ wird ab der Position p in 
ZIEL$ kopiert. Dabei werden höchstens 
n Zeichen ausgetauscht. Beispiel: 
xX$="ABCD“: MID$(X$,2,2) = "012" er- 
gibt in X$ die Zeichenkette „AO1D“. 


Logische Funktionen auf Bitebene 


Integerzahlen können über Funktionen 
wie AND, OR, XOR usw. verknüpft wer- 
den. Im Rahmen dieses Artikels soll darauf 
aber nicht näher eingegangen werden. 


11. „Schnittstellen“ für 
Assemblerprogrammierer 


MBASIC enthält neben PEEK und POKE 
einen CALL-Befehl, der sowohl den Aufruf 
von Z80- als auch von 6502-Assem- 
blerroutinen ermöglicht, die USR- und die 
VARPTR-Funktion. Mit letzterer kann die 
Speicheradresse einer Variablen ermittelt 
werden. Genauere Angaben zu diesem 
Thema entnehmen Sie bitte der entspre- 
chenden Fachliteratur, z.B. Literatur (1). 


12. Befehle zur Ein- und Ausgabe 
Einlesen von der Tastatur 


Hier wird der Applesoftprogrammierer 
nicht nur mit neuen Befehlen, sondern 
auch mit einer geänderten Syntax der IN- 
PUT-Anweisung konfrontiert: 

INPUT “Zahl: “;N: Im Gegensatz zum 
Applesoft erscheint hier die Meldung 
„Zahl: ?“ auf dem Bildschirm. Will man 
das Fragezeichen unterdrücken, muß hin- 
ter dem auszugebenden Text ein Komma 
stehen: INPUT “Zahl: “,N! 

INPUT;“Zahl: “;N: Das zusätzlich einge- 
fügte Semikolon gleich hinter der INPUT- 
Anweisung bewirkt, daß der Cursor nach 
erfolgter Eingabe in derselben Zeile bleibt. 


LINE INPUT “Text: “;TEXTE$: Dieser 
Befehl ist zum Einlesen ganzer Textzeilen 
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gedacht. Dabei wird die gesamte Eingabe 
bis zum <Return> als eine einzige Zei- 
chenkette aufgefaßt und der Variablen 
TEXTE$ zugewiesen. Dies bedeutet ins- 
besondere, daß sowohl Kommata als auch 
Anführungszeichen eingegeben werden 
können, was bekanntlich bei der INPUT- 
Anweisung nicht — oder nur mit Tricks — 
möglich ist. Auch werden führende Leer- 
zeichen nicht unterdrückt. 

X$ = INPUT$(n): Diese Funktion liest von 
der Tastatur einen String der Länge n, 
ohne ihn auf dem Bildschirm darzustellen. 
Die Eingabe kann auch durch <Return> 
nicht vorzeitig beendet werden. Vorzüglich 
geeignet zum Abfragen von Kennworten: 
A$ = INPUT$(6): IF A$ = "PEEKER" 
THEN... . 

GET ES$: Dieser Befehl funktioniert wie im 
Applesoft, ist aber in etlichen MBASIC- 
Interpretern für andere Computer nicht im- 
plementiert. 

X$ = INKEY$: Wie bei der GET-Anwei- 
sung erfolgt eine Tastaturabfrage. Dabei 
wartet die Funktion jedoch nicht auf eine 
Eingabe des Benutzers, sondern gibt, 
wenn keine Taste gedrückt wird, einen 
Leerstring aus (" ”). 


Ausgabe - auch formatiert 


Wer in Applesoft schon einmal versucht 
hat, eine Zahlentabelle ordentlich auszu- 
gegeben, weiß, daß dies - wenn man nicht 
einen entsprechenden Patch „im Hause“ 
hat — viel Arbeit verursachen kann. MBA- 
SIC schafft da Abhilfe, indem es neben 
den üblichen Befehlen zur Ausgabe 
(PRINT, SPC- und TAB-Funktion sowie 
POS(0) zur Ermittlung der aktuellen Aus- 
gabespalte) die PRINT USING-Anweisung 
zur Verfügung stellt: 

PRINT USING Formatstring; Variablenli- 
ste: Eine Variablenliste wird entsprechend 
dem Formatstring ausgegeben. 

Wie sieht nun ein solcher Formatstring 
aus? Nehmen wir ein Beispiel zu Hilfe: Sie 
haben ein Programm, das Rechnungen in 
folgender Form schreiben soll: 


5.00 kg Mehl 1.50 DM 7.50 DM 
14.001 Milch 0.99 DM 13.86 DM 


Die erforderlichen Daten seien in den Va- 
riablen MENGE, EINHEIT$, ARTIKEL$ und 
EINZELPREIS abgespeichert. Der dafür 
erforderliche Befehl würde lauten: 


10 PRINT USING “##.##DO\\DO\ 
OOOD\DO#.##ODMO#+#.##ODM“; 
MENGE; EINHEIT$; ARTIKEL$; EINZEL- 
PREIS; EINZELPREIS * MENGE. (U = 
Space) 
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MBASIC druckt dabei den Formatstring 
aus, ersetzt aber vorher gewisse Platzhal- 
terzeichen durch Variablen aus der Varia- 
blenliste. So steht die erste Platzhalter- 
gruppe (##.##) für eine Zahlenvariable, 
die mit zwei Vor- und zwei Nachkomma- 
stellen ausgegegeben werden soll. Der 
Interpreter setzt hier den Inhalt der ersten 
Variablen der Liste -— MENGE - ein. Alle 
durch „\“ begrenzten Positionen werden 
— „\“ miteingeschlossen — zur Ausgabe 
von Zeichenketten reserviert. So steht al- 
SO „\N\“ für zwei Buchstaben. In unse- 
rem Beispiel wird dort EINHEIT$ ausgege- 
ben. Ist eine Zeichenkette kleiner, als im 
Formatstring vorgesehen, so wird mit 
Leerzeichen aufgefüllt. Auf diese Art und 
Weise wird der gesamte Formatstring ab- 
gearbeitet. Der Abschnitt L der Referenz- 
tabelle gibt einen Überblick über die ge- 
bräuchlichsten Platzhalterzeichen und ihre 
Funktion. 

Ein Hinweis: Achten Sie bei der Verwen- 
dung von PRINT USING darauf, daß An- 
zahl und Art der reservierten Felder mit 
Anzahl und Typ der Variablen der Liste 
übereinstimmen. Da die Sache insgesamt 
nicht ohne Tücken ist, sollten Sie in Ihren 
Programmen mit kurzen Ausdrücken wie 
z.B. PRINT USING "####.## DM’; 
BETRAG beginnen. 

Hier noch einige weitere, auf die Ausgabe 
bezogene Befehle: 

WIDTH n: Diese Anweisung setzt die ma- 
ximale Anzahl von Spalten auf dem Bild- 
schirm fest (ähnlich dem Applesoft POKE 
33, MN). 

HOME: Es erfolgt eine Bildschirmlö- 
schung; dieser Befehl arbeitet auch bei 
Verwendung von 80-Zeichenkarten kor- 
rekt. 


Ausgabe auf dem Drucker 


Im Gegensatz zum Applesoft, bei dem die 
Ausgabe mit „PR#1" auf den Drucker 
„umgeleitet“ wird, stellt MBASIC für die- 
sen Zweck eigene Befehle bereit, die sich 
von den schon bekannten nur durch ein 
vorangestelltes „L“ unterscheiden: 
LPRINT und LPRINT USING. Schließlich 
wird mit „WIDTH LPRINT n" die Ausgabe- 
breite auf dem Drucker gesetzt; die 
LPOS(O)-Funktion gibt die aktuelle Posi- 
tion des Druckkopfes (Spalte) aus. 


13. System- und Editier- 
kommandos 


Neben den gewohnten Befehlen — NEW, 
RUN, LIST sowie DEL, TRACE und NO- 
TRACE (letztere heißen in den MBASIC- 
Versionen anderer Rechner meistens DE- 
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LETE, TRON und TROFF) — gibt es auch 
hier einiges Neues: 

LLIST: Diese Anweisung funktioniert wie 
LIST, nur erfolgt die Ausgabe auf dem 
Drucker. 

RENUM Neu, Alt, n: Die Zeilennummern 
eines Programmes werden ab Zeile Alt 
geändert. Diese erhält die Zeilennummer 
Neu; alle weiteren Zeilen folgen im Ab- 
stand n. Einzelne Parameter können weg- 
gelassen werden, z.B. bedeutet RENUM 
„20: Alle Programmzeilen werden — be- 
ginnend mit Zeilennummer 10 — mit dem 
Abstand 20 neu numeriert. 

AUTO Start, n: Dieser Befehl — übrigens 
auch im Integer-BASIC des Apple enthal- 
ten — bewirkt die automatische Ausgabe 
von Zeilennummern im Abstand n. Erste 
Zeile ist Start. Auch hier können die Para- 
meter „unterschlagen“ werden; AUTO al- 
leine bewirkt dasselbe wie AUTO 10,10. 
Abgeschaltet wird dieses Programmier- 
hilfsmittel mit Eingabe von <Ctrl-C>. 


CLEAR ‚Himem,Stack: Während CLEAR 
alleine wie im Applesoft alle Variablen 
löscht, können über zusätzliche Parameter 
die höchste von BASIC benutzbare Spei- 
cheradresse (Himem) und die Stacklänge 
geändert werden. Letztere beträgt norma- 
lerweise 256 Bytes und sollte nur vergrö- 
Bert werden, wenn zu viele GOSUB-Be- 
fehle im Programm einen „Out of Memo- 
ry“-Fehler verursachen. 

PRINT FRE(0): Es wird der freie Spei- 
cherplatz (in Bytes) angezeigt; im Gegen- 
satz zum Applesoft jedoch erfolgt eine 
Garbage-Collection nur bei einem Aufruf 
der Form X = FRE(**)! 

RESTORE / RESTORE Zeile: Neben ei- 
nem globalen RESTORE kann in einer 
zweiten Form (z.B. RESTORE 100) der 
interne DATA-Zeiger auf das erste DATA- 
Element der genannten Zeile gesetzt wer- 
den — eine Möglichkeit, die im Applesoft 
auch durch nachträgliche Patchroutinen 
realisiert werden muß. 

EDIT n: Diese Anweisung bringt die Zeile 
n in den Editiermodus. Weitere Aufruffor- 
men des eingebauten Editors sind: 


EDIT .: Die zuletzt eingegebene oder geli- 
stete Zeile wird editiert. 

<Ctrl-A>: Die gerade eingegebene, aber 
noch nicht mit <Return> abgeschlossene 
Programmzeile oder die letzte Direktan- 
weisung wird in den Editor übernommen. 
Der damit aufgerufene Editor ist zeilen- 
orientiert, d.h. nur innerhalb der angespro- 
chenen Zeile können Änderungen vorge- 
nommen werden. Die bekannten ESC-Se- 
auenzen werden nicht akzeptiert. 

Der MBASIC-Editor gibt zuerst die Zeilen- 
nummer (die nicht geändert werden kann!) 
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der zu bearbeitenden Zeile aus und po- 
stiert seinen Cursor vor dem ersten Be- 
fehl. Dieser kann jetzt durch <Space> 
nach rechts und „<-“ nach links bewegt 
werden. Dabei wird der Inhalt der Pro- 
grammzeile erst sichtbar, wenn er vom 
Cursor überfahren wurde. Durch Eingabe 
von „L” kann jedoch die Ausgabe des 
gesamten Zeileninhalts bewirkt werden. 
Eine Übersicht über die wichtigsten Edi- 
tierkommandos gibt Abschnitt G der Refe- 
renztabelle. Ansonsten gilt für diesen Edi- 
tor, der übrigens bei einem „Syntax-Er- 
ror" beim Programmablauf automatisch 
aktiviert wird, ein altbekanntes Sprichwort: 
„Nur Übung macht den Meister“. 


14. Befehle zur Dateienbehandlung 


In MBASIC ist das DOS quasi als gleich- 
berechtigter Partner von Anfang an inte- 
griert worden, d.h. alle Anweisungen zur 
Dateienbehandlung sind genauso Befehle 
wie PRINT, INPUT usw.: 

100 REM Beipiel 3 

110 RUN "TEIL2.BAS“ 

Das vom Applesoft bekannte PRINT 
CHR$(4);"RUN TEIL2.BAS“ bewirkt da- 
gegen nichts weiter als eine Bildschirm- 
ausgabe. Also: In MBASIC-Programmen 
werden „DOS“-Anweisungen genauso 
behandelt wie alle anderen Befehle! Dies 
mag am Anfang verwirrend sein, ist aber 
prinzipiell viel klarer und auch einfacher als 
im Applesoft. 

Im Rahmen dieses Artikels soll dabei nur 
auf jene Anweisungen eingegangen wer- 
den, die sich auf Programmdateien bezie- 
hen (RUN usw.) oder darauf angewandt 
werden können (KILL u.ä.). Die Möglich- 
keiten des MBASIC zur Verwaltung se- 
quentieller und Random-Access-Dateien 
werden aus Platzgründen erst in einer der 
nächsten Peeker-Ausgaben vorgestellt. 


Dateinamen 


Die im Vergleich zum Applesoft andere 
Behandlung von Dateibefehlen hat einen 
syntaktischen Unterschied zur Folge, der 
leicht übersehen wird und dann Verdruß 
bringt: Alle Dateinamen in BASIC-Befeh- 
len sind entweder Stringkonstanten (z.B. 
RUN “TEST“) oder Stringvariablen 
(A$="TEST“: RUN A$). Dagegen erzeugt 
die „gewohnte“ Eingabe „RUN TEST” nur 
einen „Type mismatch“-Fehler, da in die- 
sem Fall TEST für MBASIC eine numeri- 
sche Variable ist! 

Die unter MBASIC verwendbaren Dateina- 
men müssen sich an die CP/M-Konventio- 
nen halten. Dabei gilt: Ein Dateiname be- 


steht aus zwei Teilen, dem eigentlichen 
Namen, der bis zu acht Zeichen lang ist, 
und einer Typangabe aus drei Buchsta- 
ben. Beide werden durch einen „.“ ge- 
trennt (Beispiel: TEST.BAS, BUECHER- 
DAT). Die Typangabe soll dabei stets 
Auskunft über den Datentyp geben. So 


steht z.B. „BAS“ für ein BASIC-Pro- 
gramm, „TXT“ für einen Text usw. 


Wichtig ist noch zu wissen, daß dem 
Dateinamen ein Laufwerkskenner (ein 
Buchstabe, gefolgt von einem „:”, z.B. 
„A:“) vorangestellt werden muß, wenn 
man auf eine Disk zugreifen will, die sich 
nicht in dem Laufwerk befindet, das bei 
dem Start des MBASIC das CP/M-Be- 
zugslaufwerk war (meistens A:). CP/M 
ordnet folgendermaßen zu: 

A: Slot 6, Drive 1; B: Slot 6, Drive 2 

So wird also mit RUN “B:TEST.BAS“ das 
Programm „TEST.BAS“ in Slot 6, Drive 2 
angesprochen. 


Befehle ausschließlich für Programm- 
dateien 


Die folgenden Anweisungen sind aus- 
schließlich zum Arbeiten mit BASIC-Pro- 
grammen gedacht. Deswegen ist bei die- 
sen Befehlen das Weglassen der Datei- 
typangabe möglich. In einem solchen Fall 
erhält ein File automatisch den Typ 
„.BAS“. Beispiel: RUN “TEST ist gleich- 
bedeutend mit RUN "TEST.BAS“. 


LOAD “NAME“ / RUN “NAME“: Das 
Programm „NAME.BAS“ wird geladen 
bzw. geladen und gestartet. 

SAVE “NAME“: Es erfolgt eine Abspei- 
cherung des Programmes im Speicher un- 
ter dem Filenamen „NAME.BAS”. Dazu 
wird — wie auch beim Applesoft — eine 
spezielle Codierung benutzt, so daß derar- 
tige Dateien i.d.R. nicht mit einem Textedi- 
tor (z.B Wordstar) bearbeitet werden kön- 
nen. 

SAVE “NAME“, A: Im Gegensatz zum 
ersten Beispiel wird jetzt das Programm im 
ASCII-Format abgespeichert. Es kann 
dann auch editiert werden. Weiterhin wird 
diese Form zur Übertragung per Telefon- 
modem o.ä. empfohlen, insbesondere 
dann, wenn das Zielgerät kein Apple ist, 
weil sonst Kompatibilitätsprobleme auftre- 
ten können. (Für Interessierte: Bei den 
verschiedenen Interpreterversionen des 
MBASIC sind gleichen „Tokens“ z.T. un- 
terschiediiche Befehle zugeordnet.) 
Schließlich akzeptiert auch der Microsoft- 
BASIC-Compiler nur ASCII-Dateien. 


SAVE “NAME“, P: Diese Option bewirkt 
eine verschlüsselte Abspeicherung. Das 
Programm kann später nur noch geladen 
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und gestartet, aber weder gelistet noch 
geändert werden. 

MERGE “NAME“: Dieser Befehl, der nur 
auf Files im ASCII-Format (s.o.) angewen- 
det werden darf, lädt das Programm „NA- 
ME“ über das im Speicher befindliche. 
Das Prinzip läßt sich mit dem eines 
„EXEC“-Files unter DOS 3.3 vergleichen; 
MERGE-Dateien können jedoch nur Pro- 
grammzeilen enthalten. Direkt-Anweisun- 
gen sind unzulässig und führen zu einer 
Fehlermeldung. 

CHAIN “NAME“: Im Zusammenhang mit 
der COMMON-Anweisung können Varia- 
blen an das aufgerufene Programm „NA- 
ME“ übergeben werden. 


10 REM Beispiel 3 

20 COMMON A,B() 

30A= 1:B(2) = 9 

40 CHAIN “TEIL2“ 

In obigem Beispiel könnte das Programm 
„TEIL2“ sofort auf die Variablen A und 
B(2) zugreifen. Der CHAIN-Befehl erlaubt 
auch das Nachladen einzelner Routinen- 
blöcke. Seine volle Syntax ist CHAIN 
/MERGE/FILENAME$/, STARTZEILE/, 
ALL/, DELETE VON - BIS; die Anweisung 
„CHAIN MERGE “TEIL2.BAS“, 1000, 
ALL, DELETE 100-400“ beispielsweise 
bewirkt nach der Löschung der Pro- 
grammzeilen 100-400 das „Dazuladen“ 
des Programmes „TEIL2.BAS“ (s.a. MER- 
GE); die Programmausführung wird in Zei- 
le 1000 fortgesetzt; alle Variablen stehen 
weiterhin zur Verfügung. 


Weitere Befehle zur Dateienverwaltung 


Bei diesen Anweisungen muß bei File- 
Namen der Typ mitangegeben werden. 
Fehlt er, wird nicht automatisch „.BAS“ 
hinzugefügt; KILL DEMO“ und KILL 
“DEMO .BAS“ sind also nicht equivalent! 
KILL “NAME.BAS“: Löschen der Datei 
„NAME.BAS“. 

NAME “NAME.BAS“ AS “NEUNAME 
„‚BAS“: Umbenennen einer Datei. 

FILES: Anzeige des Inhaltsverzeichnisses 
der Disk im Bezugslaufwerk. Dies ist, 
wenn MBASIC, wie oben angegeben, von 
der Masterdisk gestartet wurde, Drive A: . 
Die Inhalte anderer Disketten können 
ebenfalls ausgegeben werden, z.B. mit 
FILES “B:x.*“ für Drive B:. 

RESET: Dieser Befehl muß immer dann 
eingegeben oder vom Programm ausge- 
führt werden, wenn eine Diskette gewech- 
selt wurde, um die neue Disk ordnungsge- 
mäß im CP/M-Betriebssystem „anzumel- 
den“. Vergeßlichkeit in diesem Punkt kann 
beim Versuch, auf eine nicht angemeldete 
Diskette zu schreiben, zum Absturz des 
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MBASIC-Interpreters und damit zum Ver- 
lust des gesamten Programmes führen! 


15. Applespezifische 
Erweiterungen 


Alle bis jetzt besprochenen Anweisungen 
gehören — wenn nicht besonders darauf 
hingewiesen wurde — zum Standard-MBA- 
SIC und sind daher auch auf vielen ande- 
ren Rechnern verfügbar. Die folgenden 
Befehle jedoch sind i.d.R. nur in der Ap- 
pleversion des MBASIC vorhanden. Bei 
einigen von ihnen — nämlich den Grafik- 
befehlen - treten bei Verwendung von 80- 
Zeichenkarten Schwierigkeiten auf, da 
CP/M grundsätzlich eine derartige Zusatz- 
Karte — falls vorhanden — zur Ausgabe 
benutzt. Damit ist es i.d.R. nicht möglich, 
Grafik und vier Zeilen Text darzustellen. 
Dagegen arbeiten z.B. VTAB, HTAB, POS 
und HOME auch bei 80 Zeichen pro Zeile 
einwandfrei, wobei das natürlich nicht un- 
bedingt für jede 80-Zeichenkarte gilt. 


15.1. Ein- und Ausgabebefehle 


Wie im Applesoft funktionieren NORMAL, 
INVERSE, HTAB und VTAB. 

Y = VPOS(0): Mit der VPOS(O)-Funktion 
kann die vertikale Cursorposition ermittelt 
werden. 

WIDTH BREITE,HOEHE: In einer zweiten 
Form der WIDTH-Anweisung (s.o.) ist es 
möglich, neben der Ausgabebreite auch 
die Bildschirmhöhe festzusetzen. 

Zur Paddleabfrage steht neben der PDL- 
Funktion auch eine Möglichkeit zur Verfü- 
gung, den Druckknopf abzufragen: 

Y = BUTTON(Paddlenummer): Diese 
Funktion ergibt -1, wenn der entsprechen- 
de Knopf gedrückt wurde. Beispiel: IF 
BUTTON(0O) THEN ... 

BEEP HOEHE, LAENGE: Diese neue An- 
weisung dient zur Erzeugung unterschied- 
lichster Töne. HOEHE und LAENGE sind 
dabei Integerausdrücke im Bereich von O 
DIS 259, 


15.2. Kommandos zur Ansteuerung der 
niedrigauflösenden Grafik 


Die bekannten Befehle COLOR=, PLOT, 
HLIN, VLIN, GR und TEXT sowie die 
SCRN-Funktion stehen auch hier zur Ver- 
fügung. Der GR-Befehl hat eine zusätzli- 
che erweiterte Form bekommen: 

GR MODUS, FARBE: MODUS = 0 be- 
wirkt die Ausgabe von Grafik und vier Zei- 
len Text, bei MODUS = 1 wird der gesam- 
te Schirm für die Grafik verwendet. Je 
nach dem Wert von FARBE wird der Bild- 
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schirm gelöscht (FARBE = 0) oder mit der 
entsprechenden Farbe gefüllt, wobei die 
Farbzuordnung der vom Applesoft ent- 
spricht. Beispiel: GR 1,3. 


15.3. Hochauflösende Grafik 


Hires-Grafik ist nur mit dem GBASIC- 
Interpreter möglich, der sich ebenfalls auf 
der CP/M-Masterdisk befindet und von 
CP/M aus mit „GBASIC <Return>" ge- 
startet wird. Alle anderen MBASIC-Befeh- 
le sind auch im GBASIC gültig. (Anm. d. 
Red.: Das GBASIC, das in Verbindung mit 
der Premium Card für den Ile geliefert 
wird, ist MBASIC und GBASIC in einem. 
Ein Testbericht zu dieser Karte erscheint 
in Kürze.) 

Wie im Applesoft funktionieren HCO- 
LOR= und HPLOT sowie HGR. 

HGR m,c: Dieses erweiterte Kommando 
funktioniert ähnlich wie die GR-Anwei- 
sung; die Bedeutung der Parameter m und 
c wird in der Referenztabelle Abschnitt Q 
erläutert. 

Z = HSCRN(X,Y): Diese neue Funktion 
ergibt -1 (logisch wahr), falls der entspre- 
chende Punkt (X,Y) der Hires-Grafik ge- 
setzt ist. Beispiel: IF HSCRN(120,99) 
THEN .... 

Shaperoutinen sind im GBASIC nicht vor- 
handen. 


16. Literatur für Interessierte 


Eine vollständige, alles umfassende Erläu- 
terung eines BASIC-Interpreters ist im 
Rahmen eines Zeitschriftenartikels natür- 
lich nicht möglich. Zur Vertiefung des Wis- 
sens können folgende Bücher dienen, die 
sich allerdings nur auf MBASIC allgemein 
beziehen und nicht auf die applespezifi- 
schen Erweiterungen eingehen. 

(1) Günther Daubach, MICROSOFT BA- 
SIC 80, IWT-Verlag. Ein sehr ausführliches 
Buch, das auf über 300 Seiten neben gut 
verständlichen Beispielen für den Anfan- 
ger fundierte Informationen für den Profi 
bietet. 

(2) J.J. Purdum, BASIC-80 und CP/M. 
Eine Einführung in MBASIC in Kursform 
mit vielen Aufgaben. 

(3) Thom Hogan, CP/M-Anwenderhand- 
buch, McGraw-Hill. Eine umfassende Be- 
schreibung der CP/M-Befehle und Dienst- 
programme. 


[ 
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Microsoft BASIC-80 (MBASIC) - Referenztabelle 


Diese Tabelle wurde in ihrer Gliederung der Applesoft-Referenzkarte 
angepaßt, um einen schnellen Vergleich zu ermöglichen. 


Es werden folgende Abkürzungen verwendet 


wAS : wie imApplesoft-BASIC, höchstens geringfügige Abweichungen. 
Zu beachten ist aber, daß im MBASIC Befehle meistens von 
Leerzeichen eingeschlossen werden müssen und bei 
Funktionen sich die "(" unmittelbar anschließen sollte. 
Bsp. : 19® GOTO 2000 statt : 10PGOTO2BR9 . 


AMB : Befehl oder Funktion ist nur in der Appleversion des 
MBASIC verfügbar. 


A. Einfache Variablen 


Typ Beispiel DEF-Fkt. Konvertierungsfkt. 
Integer -32768/+32767 ABC% DEFINT CINT 
Real, 7 Stellen Genauigkeit ABC /ABC! DEFSNG CSNG 
Real, 17 Stellen Genauigkeit ABC# DEFDBL CDBL 
String ABC$ DEFSTR -- 


Variablennamen können bis zu 4® Zeichen besitzen, von denen alle 
signifikant sind. 


Die DEF-Funktionen ordnen Variablen mit bestimmten 
Anfangsbuchstaben global einem Typ zu, z.B.: DEFSTR A-C erklärt 
alle Variablen mit Anfangsbuchstaben A-C, die keinSuffix(!,#,%) 
tragen, zuStringvariablen. 


Die Konvertierungsfunktionen führen Typenumwandlungen durch 
(z.B. ? CINT(A#)), die aber bei Wertzuweisungen automatisch 
erfolgen. Bsp.: A% = C# ist gleichwertig mit A%X = CINT(C#). 


B. Konstanten 


1352.35, 337E12 
23.56#, 321.4D13 
&HFFSD, &HAF 
&2300, &043 


einfach genaue Realkonstanten 
: doppelt genaue Realkonstanten 
hexadezimale Integerkonstanten 
oktale Integerkonstanten, Bsp.: AZ = &03259 


C. Algebraische Funktionen 
Alle Funktionen des Applesoft, zusätzlich 


\ 2 ganzzahlige Integerdivision, Bspp.: 5\2=2 
MOD : A MOD B ergibt ganzzahligen Rest der Division, Bsp.: 1® MOD 
3 ergibt 1. 


D. Vergleichende und logische Operationen 


Operationen wie im Applesoft, zusätzlich Funktionen zur logischen 
Verknüpfung von Integerzahlen auf Bitebene: 


A AND B : logisches "UND" 

A EQV B : negiertes "Exklusiv-ODER" (logische Äquivalenz) 
A ORB : logisches "ODER" 

A XOR B : logisches "Exklusiv-ODER" 

NOT(B) : logisches "NICHT" 


Vergleichsausdrücke ergeben den Wert -1l, falls sie wahr sind, 
andernfalls den Wert ®. Bsp.: ? 3=3 ergibt -1l! 


E. Systemkommandos 


wAS : CLEAR, CONT, END, NEW, RUN, STOP, TRACE(AMB), 
NOTRACE(AMB) ‚<Ctr1-C>. 


CLEAR,h,s : wie CLEAR, zusätzlich wird die Speichergrenze für 
MBASIC auf h sowie die BASIC-Stacklänge auf s 
(normal 256) gesetzt. 

?FRE(9) ı Zeigt freien Speicherplatz in Bytes an. Garbage 
Collection erfolgt nur bei Aufruf in der Form 
X=FRE(""). 

: verursacht einen RESET-ERROR, der mit ONERR 
abgefangen werden kann. 


<RESET> 


F. Befehle zum Arbeiten auf Maschinensprachenebene 
wAS : PEEK, POKE, WAIT. 


CALL X%(Par) : Ruft Z8@-Assemblerroutine auf und übergibt 
Parameter. 
: Ruft 65@2-Unterprogramm auf und übergibt Werte 


an Akkumulator, X- und Y-Register, AMB. 


CALL% X%(A,X,Y) 


Hinweis: Die jeweilige Startadresse der 
Maschinensprachenroutine (X%) muß eine Variable 
sein. Ausdrücke wie CALL &HFEDF sind 
unzulässig. 
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USRn (X) : Aufruf der Maschinenroutine n (n = ß-9). Die 
Startadresse des Unterprogrammes muß vorher mit 
einer Anweisung der Form DEF USRn = 
Startadresse festgelegt worden sein. 

Ergibt die Adresse einer Variablen im Speicher. 
Bsp.: A = 19 : ? VARPTR(A). 


VARPTR (var) 


G. Kommandos zum Editieren / Verändern von Programmen 
wAS : LIST, DEL(AMB). 


LLIST : wie LIST, aber Ausgabe auf dem Drucker. 

RENUM n,a,x Neunumerierung aller Zeilen im Abstand x, 
beginnend bei alter Zeile a, die die neue 
Zeilennummer n erhält. Bsp.: RENUM 19,1,5; 
RENUM ‚,‚2® 
Erzeugt in jeder Eingabezeile eine 
Programmzeilennummer, beginnend bei s im Abstand 
a. Bsp.: AUTO 1@@@,1®; AUTO ‚29. 
AUTO wird durch <Ctrl-C> abgeschaltet. 

EDIT n :  Programmzeile n in den Editor bringen. 

EDIT . : Zuletzt gelistete oder eingegebene Zeile editieren. 


Die wichtigsten Kommandos des Editors: 


<SPACE> Cursor nach rechts, überfahrene Zeichen werden 

sichtbar. 

Cursor nach links 

Text ab Cursor einfügen. Der Insert-Modus wird durch 

<ESC> oder <RETURN> beendet. 

Zum Erweitern einer Zeile: Der Cursor springt zum 

Ende der Zeile, der Insert-Modus wird aufgerufen 

(8:6, 7]. 

n Zeichen rechts vom Cursor werden gelöscht. Die 

Löschung wird durch Ausdruck der entsprechenden 

Zeichen in eckigen Klammern dargestellt! 

H : Rest der Zeile ab Cursor löschen, Insert-Modus wird 
danach automatisch eingeschaltet. 

nC : Die nächsten n Zeichen werden ausgetauscht. 

<RETURN> : Editor verlassen, gesamte Zeile ausgeben. 

Q : Editor ohne Wirkung verlassen. 

L : Gesamte Zeile sichtbar machen und Editieren 
fortsetzen. 


H. Wichtige Control-Zeichen 


<Ctrl-A> 
<Ctrl-B> 
<Cctrl-S> 
<Ctr1l-Q> 
<Cctrl-X> 


‘ Editor mit gerade eingegebener Zeile aufrufen. 
: Backslash (\, auf deutschen Tastaturen ö). 
ı Hält Programm an. 
Programm nach <Ctrl-S> weiter fortsetzen. 
Eingabezeile löschen. 


I. Befehle zur Cursorsteuerung 


wAS : HOME, HTAB(AMB), INVERSE(AMB), NORMAL(AMB), POS, SPC, 
VTAB(AMB). 


TAB(X) : bewegt den Cursor in die Spalte X. Falls X<POS(®), wird 
der Cursor in der nächsten Zeile in die Spalte X 
gesetzt. 


TAB darf nur in PRINT-Anweisungen verwendet 
werden! 


VPOS(®) : Gibt die Zeile an, in der der Cursor steht. 
WIDTHs,z: Setzt die Anzahl der Spalten zur Bildschirmausgabe auf 
s und die Anzahl der Zeilen auf z; AMB. 


J. Felder 


DIM A(a,b,c) : Dimensioniert ein REAL-Feld, untere Feldgrenze ist 
A(®,0,0) bei OPTION BASE ® oder A(1l,1,1) bei 
OPTION BASE 1. 

OPTION BASE n: Setzt untere Feldgrenze auf n (s.DIM). Zulässig 

sind n=® (default) oder n=|]. 

Löscht den Array FELD, dieser kann dann neu 


dimensioniert werden. 


ERASE FELD 


K. Zeichenketten 


wAS: ASC, CHR$, LEFT$, LEN, MID$, RIGHT$, STR$, VAL. 

X$ = HEX$(n) Ergibt hexadezimale Darstellung von n, wobei n 

im Integerbereich liegen muß. 

INSTR(n,X$,Y$): Überprüft beginnend bei Position n in X$ 
diesen auf Übereinstimmung mit Y$. Das 
Ergebnis ist gleich der ersten 
übereinstimmenden Position. Ist Y$ nicht in X$ 
erhalten, ergibt INSTR den Wert ®. Bsp.: 
INSTR("1234","23") ergibt 2. 
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MID$(X$,p,m) = : Beginnend ab Position p werden die Zeichen in 
xX$ durch Y$ ersetzt, es werden max. m 
Buchstaben ausgetauscht. 
Ergibt die oktale Darstellung von n, S.a. 
HEX$. 

: Ergibt n Leerzeichen. 
Ergibt n Zeichen mit ASCII-Code m. 


Ergibt n-mal das 1l.Zeichen von X$. 


P. Lores-Grafik 
wAS: COLOR=, HLIN, GR, PLOT, SCRN, TEXT, VLIN. 


x$ = OCT$(n) GR n,c 


Der Grafikbildschirm wird mit Farbe c (®-15) 
gelöscht; n=® schaltet auf Grafik und 4 Textzeilen, 


x$ = SPACE$(n) n = l auf volle Grafikdarstellung. Bsp.: GR 1,12 


x$ = STRING$(n,m) 
Y$ = STRING$(n,X$): Q. Hires-Grafik (nur mit GBASIC-Interpreter möglich sowie Standard bei 
Premium Card) 


L. Ein- und Ausgabebefehle 
wAS : HGR, HCOLOR=, 


wAS : GET(AMB), DATA, READ, RESTORE, PRINT. 


HPLOT. 


HGR m,c Schaltet HGR-Modus m ein und löscht Schirm ggf. mit 


Farbe c. Bsp.: HGR 1,3 
Modus 


INPUT "A: ; 
INPUT "2," : 
INPUT: IA:T 5 


Druckt '"X:?" und wartet auf Eingabe. 

Gibt vor der Eingabe "X:" aus. 

Unterdrückt Zeilenvorschub nach der Eingabe, 

Cursor bleibt nach <RETURN> in Eingabezeile. 

Fragt Tastatur ab und übergibt, falls Taste 

gedrückt wird, das entsprechende Zeichen, sonst "". 

Liest n Buchstaben, ohne sie auf dem Bildschirm 

darzustellen. 

LINE INPUT X$: Liest eine Zeichenkette bis zum <RETURN> ein und 
ermöglicht dabei die Eingabe von Kommata und 
Anführungszeichen im Text. 

: Setzt DATA-Eingabezeiger auf die DATA-Liste in 
Zeile n. 

Ausgabe einer Variablenliste entsprechend einer 
Formatliste. Bsp.: PRINT USING "xx##.#+#+ DM";2 
ergibt "x*x*2.00 DM". Es erfolgt also eine Ausgabe 
der Formatliste, wobei gewisse Platzhalterzeichen 
durch Variablen der Liste ersetzt werden. 


Schirmlöschung 
280 * 160 Pkte., 4 Textzeilen ja, Farbe c 
280 * 192 Pkte. ja, Farbe c 
280 * 160 Pkte., 4 Textzeilen nein 

280 * 192 Pkte. nein 


Y=HSCRN(X,Y): Ergibt -1, falls Punkt auf Schirm gesetzt. Bsp.: IF 
HSCRN(129,128) THEN ?"CRASH !" 


d.h. 
x$ = INKEY$ 


X$ =INPUT$(n): 


R. Gameport und Lautsprecher 
wAS : PDL. 


RESTORE n 


PRINT USING 
Y = BUTTON(p) Fragt Druckknopf an Paddle p ab, ergibt -1l, falls 
Knopf gedrückt, sonst ®. Bsp.: IF BUTTON(®) THEN 
Erzeugt einen Ton der Höhe h und Länge 1, h und 1 


sind Integerwerte im Bereich ®-255. 


BEEP h,l 


* Alle Befehle, die Grafik und Gameport betreffen, gehören nicht 


Die wichtigsten Platzhalterzeichen und ihre Bedeutung: 
zum Standardsprachumfang des MBASIC. 


: Ausgabe einer Zeichenkette beliebiger Länge. 

: Markierung eines Ausgabefeldes für Strings. Die Anzahl 
der ausgegebenen Zeichen ist gleich der der 
eingeschlossenen Leerzeichen +2. 

: Markierung einer Ziffer im Ausgabefeld. 

: Markierung eines Kommas in der Ausgabe. Bei ##.##+ werden 
von einer Variablen zwei Vor- und zwei Nachkommastellen 
ausgegeben. 

Zeigt die Stelle an, an der das Vorzeichen einer Zahl 
ausgegeben werden soll: Bsp.: ##.#+#+ 

Ein Minuszeichen wird hinter der Zahl ausgegeben, 
Pluszeichen werden nicht gedruckt. Bsp.: ##+#+- 

Alle Leerstellen im Zahlenausgabefeld werden mit "x" 
gefüllt (s.o.); sog. "Scheckformat". Bsp.: »#x#+#.+# 
Erzwingt Exponentialdarstellung einer Zahl. Bsp.: #111. 


S. Mathematische Funktionen 
wAS : ABS, ATN, COS, EXP, INT, LOG, SGN, SIN, SQR, TAN. 


Y= FIX(X) Die Nachkommastellen von X werden 
abgeschnitten. 

wAS, aber: Jeder Programmlauf erzeugt 
dieselben Zufallszahlen, wenn nicht mit 
RANDOMIZE ein neuer Startwert erzeugt wurde. 
Erzeugung einer Zufallszahlenreihe in 
Abhängigkeit von der Integerzahl A%. 
Programm hält an und fordert zur Eingabe eines 
Wertes auf. ("Random number seed ...") 

Der Inhalt der Variablen A und B wird 
ausgetauscht. 

Definiert die Funktion Amit den ParameternX 
und Y. Aufrufmit z.B. ?FNA(2,3) ergibt6. 


RND(n) 


RANDOMIZE A% 
RANDOMIZE 


SWAP A,B 
tm 


Reicht bei einer Ausgabe ein Zahlenfeld nicht aus, wird ein "%'" 
als Warnzeichen ausgedruckt. 


DEF FNA(X,Y)=XxY: 


T. Befehle zur Programmdateienverwaltung 
Dateienbefehle werden wie normale BASIC-Befehle gehandhabt. 


M. Druckerausgabe 


LPRINT: wie PRINT, Ausgabe erfolgt auf dem Drucker. 
Ebenso LPRINT USING. 


Ergibt dieaktuelle Position (Spalte) des Druckkopfes. 


Bsp.: 128 RUN "TEIL2.BAS", dagegen ist 


128 ?CHR$(4);"RUN TEIL2.BAS" falsch! 
X%-LP0S1(#): 
WIDTH LPRINT n: NAMES ist ein Stringausdruck (Konstante oder Variable), der 
einen File-Namen entsprechend CP/M (fname.ftyp) darstellt. Bsp.: 


"TEIL1.BAS", "TEST.TXT" 


Setzt die maximale Spaltenzahl für die 
Druckerausgabe auf n. Bsp.: WIDTH LPRINT 40 
N. Befehle zur Programmablaufkontrolle 

wAS : GOTO, GOSUB, ON...GOTO, ON...GOSUB, POP(AMB), RETURN. 
IF A=B THEN : 


RUN NAME$ 
LOAD NAME$ 
SAVE NAME$ 
SAVE NAME$,A 
SAVE NAME$,P 
MERGE NAME$ 


Programm laden und starten. 

Programm laden. 

Programm abspeichern. 

Programm als ASCII-Text abspeichern. 
Speichern und Listschutz setzen. 

Programm über das im Speicher befindliche 
laden. NAME$ muß ein ASCII-Programmfile sein. 
Programm laden und mit COMMON vereinbarte 
Variablen übergeben. 

Festlegung der Variablen, die bei einem CHAIN- 
Aufruf an das nachgeladene Programm übergeben 
werden sollen. Bsp.: COMMON A,B(),cC$ 

KILL NAME$ : Löschen einer Datei. 

NAME ALT$ AS NEU$: Umbenennen einer Datei. Bsp.: NAME "TEST.BAS" 
AS "PROBE.BAS'" 


wAS, jedoch kann für den Verneinungsfall (Aist 

nicht gleichB) die ELSE-Alternative benutzt 

werden: IF A=B THEN B=B-1 ELSE ?"ERROR". 

Die von WHILE/WEND eingeschlossenen Programmzeilen 
werden solange ausgeführt, wie A=B erfüllt ist. 


WHILE A=B 
CHAIN NAME$ 


WEND 
FOR...NEXT 


: wAS, aber: Die Schleifenbedingung wird vor dem 
ersten Schleifendurchlauf getestet, d.h. eine 
Schleife FOR L = 3 TO 1 wird nicht durchlaufen, im 
Applesoft würde dagegen eine einmalige Ausführung 
erfolgen. 


COMM N varl,var2 


O. Anweisungen zur Fehlerbehandlung 


ON ERROR GOTO n Im Fehlerfall wird eine 
Fehlerbehandlungsroutine in Zeile n 
angesprungen. 

Normale Fehlerbehandlung (Ausgabe von 


Fehlermeldungen) wird wieder eingeschaltet. 


Bei KILL und NAME muß unbedingt der Dateientyp angegeben werden. 
Alle anderen Befehle nehmen ".BAS'" als Typ an, wenn diese Angabe 
fehlt. Bsp.: RUN "TEST" ist equivalent mit RUN "TEST.BAS". 

ON ERROR GOTO ® 


FILES Ausgabe des Inhaltsverzeichnisses des 


RESUME /RESUME 
RESUME NEXT 
RESUME n 

X = ERR 


X = ERL 
ERROR n 
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d: Fehlerbehandlungsroutine verlassen und in die 
Zeile zurückkehren, in der der Fehler auftrat. 
: ‚Wie RESUME, aber in der dem Fehler folgenden 
Zeile die Ausführung fortsetzen. 
Das Programm in Zeile n fortsetzen. 
Ergibt die Nummer des aufgetretenen Fehlers. 
: Gibt die Zeile an, in der der Fehler auftrat. 
: Erzeugt einen Fehler mit Fehlernummer n. 





FILES "d:x*.x*'" 


RESET 


SYSTEM 


Bezugslaufwerks. 

Ausgabe des Inhaltsverzeichnisses der Disk d. 
Bsp.: FILES "B:x.x" für Slot 6, Drive 2. 
Neuanmeldung einer Diskette im CP/M 
Betriebssystem. Befehl muß nach jedem 
Diskettenwechsel eingegeben werden. 
Verlassen des MBASIC und Rückkehr in das 
CP/M-Betriebssystenm. 
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Peeker-Sammeldisk #9 


Diese Diskette enthält die Pascal-Programme aus den Heften 
1-10/1985 im Pascal-Format. Einzelpreis 28,-; Fortsetzungs- 
preis DM 20,-. Die Fortsetzungsbezieher werden benachrichtigt, 
da keine Pflichtabnahme für Pascal-Disketten. 


PEEKER 9: 
DUPDIR.TEXT (1/85) 
DUPDIR.CODE 
GETDOS.TEXT 
GETDOS.CODE 
MOUSESTUFF.TEXT (4/85) 
MOUSESTUFF.CODE 
TESTMOUSE.TEXT 
TESTMOUSE.CODE 
DRAWMOUSE.TEXT 
DRAWMOUSE.CODE 
MOUSE.ASS.TEXT 
MOUSE.ASS.CODE 
MOUSE.LIBRARY 
TRANSCEND.TEXT (5/85) 
TRANSCEND.CODE 
RAMDISK94.TEXT (6/85) 
INIT.TEXT 
INSTALL.TEXT 
RAMDISK94.CODE 
IDSEARCH.TEXT (8/85) 
IDSEARCH.CODE 
ALLG.TEXT (9/85) 
ALLG.CODE 
MUEL.TEXT 


— 
on 


—_ D D DD 
PP,.OLPOP7-OOUWTODOOOPPPNONGD OUPDOODON 


— 


CRUNCH.TEXT (10/85) 
CRUNCH.CODE 
MOVER.TEXT 
MOVER.CODE 
CRUNCHER.TEXT 
CRUNCHER.CODE 


— 


DD 





Der nächste Peeker 
Heft 10/1985 


erscheint am 
23. 9. 1985 





Einzelbezug DM 28,— 
Fortsetzungsbezug DM 20,— 

Pascal- und CP/M-Disketten können 
vom Fortsetzungsbezug ausgeschlos- 
sen werden. 

(Jederzeit kündbar, jedoch mindestens 
6 Disketten) 

(* = nur auf Diskette, nicht im Peeker 
gelistet! Seitenangaben beziehen sich 
auf Beginn des Listings) 

Hüthig Software Service 

Postfach 102869 - 6900 Heidelberg 1 


Disk #1 
(Heft 1+2, 1984, DOS-Format) 


T.DISASSEMBLER.65C02 (1/84, S. 15) 
DISASSEMBLER.65C02 


T.ACCEL.WAIT (1/84, S. 22) 
ACCEL.WAIT 
T.ACCEL.BOOT 
ACCEL.BOOT 
ACCEL.LC.KOPIERER 
T.ACCEL.LC.KOPIE 
ACCEL.LC.KOPIE 
T.ACCEL.ROM.KOPIE1 
ACCEL.ROM.KOPIE1 
T.ACCEL.ROM.KOPIE2 
ACCEL.ROM.KOPIE2 


TURTLE.GRAFIK.MIT.REMS (1/84, S.29) 
TURTLE.GRAFIK.OHNE.REMS * 


DOUBLE.LORES.SOFTSWITCH.DEMO 
(1/84, S. 37) 
DOUBLE.LORES.APPLESOFT.DEMO 
AMPER.DOUBLE.LORES.DEMO 
T.AMPER.DOUBLE.LORES 
AMPER.DOUBLE.LORES 
T.DOUBLE.LORES 

DOUBLE.LORES 


HIRES (1/84, S. 41) 
T.PRINTHIRES 
PRINTHIRES 


DHGR.APSOFT.DEMO (2/84, S. 30) 
AMPER.DOUBLE.HIRES.BAS 
AMPER.DOUBLE.HIRES 
T.AMPER.DOUBLE.HIRES 
DHGR.LINEPLOTTER 


INSTRING.TEST (2/84, S. 43) 
INSTRING.OBJ 
T.INSTRING.OBJ 
INSTRING.LISA.SOURCE 


LOESCHEN.EINES.ARRAYS 
(2/84, S. 52) 


ULTRATERM.ENGLISCH * (2/84, S. 60) 
ULTRATERM.DEUTSCH * 


PRIMZAHLEN.OVERMEYER * 
(2/84, S. 70) 
PRIM.OBJO * 
PRIM.OBJ1 * 
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PRIM.TEST * 
PRIM.TOOLKIT.SOURCE * 


Disk #2 
(Heft 1-2, 1985, DOS-Format) 


T.RAMDISKLC (1-2/85, S. 14) 
RAMDISKLC 


T.IBS.RAMDISKDRIVER (1-2/85, S. 20) 
IBS.RAMDISKDRIVER 


T.AP20.RAMDISKTEST 
AP20.RAMDISKTEST 


T.QUICKCOPY (1-2/85, S. 26) 
QUICKCOPY 
QUICKCOPY.PUFFER 
PRODOS.COPYA 
T.PRODOS.COPYOBJ * 
PRODOS.COPYOBJ 


PRODOS.PATCH (1-2/85, S. 31) 


T.APPLESOFT.FRE (1-2/85, S. 36) 
T.LC.FRE 

LC.FRE 

FRE.TEST 

T.RAM.FRE * 

RAM.FRE 


T.SCHIRMDISK (1-2/85, S. 44) 
SCHIRMDISK.LISA.SOURCE 
SCHIRMDISK 


T.VIDEXT 
VIDEXT.LISA.SOURCE 
VIDEXT 


GETPAS (1-2/85, S. 70) 
T.GETPAS.ASS * 

GETPAS.ASS 
GETDOS.PASCAL.SOURCE 
COPYDUPDIR.PASCAL.SOURCE 


PRODOS.EDITOR.MACROS 
(1-2/85, S. 86) 


Disk #3 
(Heft 1-2, 1985, CP/M-Format) 


STEUER.84 (1-2/85, S. 47) 
PASS.BAS 
MENUE.BAS 
HELP.BAS * 
A.BAS 
B.BAS 
C.BAS 
D.BAS 
E.BAS 
F.BAS 
G.BAS 
H.BAS 

1.BAS 
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Ssammeldisketten 


J.BAS 
K.BAS 
L.BAS 
M.BAS 
N.BAS 


Disk #4 
(Heft 3+4, 1985, DOS-Format) 


TESTGENERATOR (3/85, S. 26) 
SAETZE 

BAHNFAHRT * 

ZU * 

TUN.UND.SOLLEN * 

IRGEND * 


MULTIPRECISION (3/85, S. 32) 


T.WS.TRANSFER (3/85, S. 36) 
WS.TRANSFER 
T.WS.TRANSFER.2 * 
WS.TRANSFER.2 * 

GETCPM 


PRIM.0.SC.SOURGCE (3/85, S. 62) 
PRIM.O.BIN 


PRIM.1.5C.SOURCE 
PRIM.1.BIN 
PRIM.FP 


ACCELERATOR.ABSTELLEN 
(3/85, S. 66) 


T.WILDCARD.TEST * (3/85, S. 72) 
WILDCARD.TESTI * 
T.WILDCARD.TEST2 * 
WILDCARD.TEST2 * 


XPLOT.DEMO (4/85, S. 18) 
XPLOT.ROUTINE 
T.XPLOT.ROUTINE 


MENUE.GENERATOR (4/85, S. 22) 
T.MACROS.65C002 (4/85, S. 31) 


TERMINAL (4/85, S.36) 
TERMINAL.B 
T.TERMINAL.B 


CAT.ARRAY (4/85, S. 44) 
CAT.SAVER 
EINTRAG.SUCHER 
EINTRAG.ANALYSE 
PRODOS.READER 
T.PRODOS.READER.OBJ 
PRODOS.READER.OBJ 


MOUSESTUFF.PASCAL.SOURCE 
(4/85, S. 51) 
MOUSE.ASS.PASCAL.SOURCE 
TESTMOUSE.PASCAL.SOURCE 
DRAWMOUSE.PASCAL.SOURCE 


INALL.DATA (4/85, S. 70) 
SCREEN80.DATA (4/85, S. 33) 
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SCREEN80.SAVER (4/85, S. 76) 


Disk #5 
(Heft 5, 1985, DOS-Format) 


T.FM.BSP (5/85, S. 9) 
FM.BSP 


T.SLOTRAMDISK (5/85, S. 13) 
SLOTRAMDISK 
SLOTRAMDISK.HELLO 


PLOT.2.O (5/85, S. 20) 
T.PLOT.B 

PLOT.B 
PLOT.PROTECTOR 


T.CONVERTS560 (5/85, S. 26) 
CONVERT560 
CONVERT560.DEMO 


T.EDA (5/85, S. 33) 
EDA 


TRANSCEND.PASCAL.SOURCE 
(5/85, S. 36) 


T.BLOCKTRACER (5/85, S. 51) 
BLOCKTRACER 
T.BLOCKTRACER 
BLOCKTRACER1 


FORMAT.LC (5/85, S. 56) 
FORMAT.LC.START 


T.DISKDRIVER.DEMO 
DISKDRIVER.DEMO 


RANDOM.DEMO (5/85, S. 69) 
COLUMN80.DEMO 


SUPERDUMP.EPSON (6/85, S. 22!) 
SUPERDUMP.IMAGEWRITER 
SUPERDUMP.BILD 

T.SUPERDUMP x 

SUPERDUMP 

EPSON 

IMAGEWRITER 


Disk #6 
(Heft 6, 1985, DOS-Format) 


HELLO (6/85, S. 72) x 
ASMDIV x& 


CURSOR1 (6/85, S. 6) 
T.CURSOR1 
CURSOR2 
T.CURSOR2 
LINIE 

T.LINIE 

VIERECK 
T.VIERECK 

BOX 

T.BOX 
HINTERGRUND 
T.HINTERGRUND 


PAGE.SWAP 
T.PAGE.SWAP 


WANDERNDER.STRICH (6/85, S. 16) 
KOMPRESSOR.DEMO 

KREIS.1 

KREIS.2 

KREIS.3 

FLIPPER 

T-FLIPPER 

KOMPRESSOR 

T.KOMPRESSOR 


OLYMPIA (6/85, S. 34) 
T.OLYMPIA 


FOURIER.MAIN (6/85, S. 38) 
FOURIER.SYN 
FOURIER.SPEC 


AS.ERWEITERUNG (6/85, S. 43) 
T.AS.ERWEITERUNG 
AS.ERW.PROSTART 
AS.ERW.PRO x 

T.AS.ERW.PRO x 


INSTALL.PASCAL.SOURCE 
(6/85, S. 48) 

RAMDISK94.PASCAL.SOURCE 

INIT.PASCAL.SOURCE 


RAMDISK.INIT.DOS (6/85, S. 55) 
AUXDRIVER 

T.AUXDRIVER 

MOVEDRIVER 

T.MOVEDRIVER 
RAMDISK.FORMATTER 
T.RAMDISK.FORMATTER 


SOLITAIRE.START (6/85, S. 64) 
SOLITAIRE 

SOLITAIRE.B 

T.SOLITAIRE.B 


Disk #7 
(Heft 7, 1985, DOS-Format) 


PYRAMID.PITTY (7/85, S. 6) & 
T.PYR.PITTY.O x 
T.PYR.PITTY.1 x 

PYR.PITTY.O x 

PYR.PITTY.1 & 
PYR.PITTY.BACK x 
PYR.PITTY.SHAPE x 


T.MEGAWARP.REL (7/85, S. 8) * 
MEGAWARP.REL x 
T.MEGAWARP.9900 
MEGAWARP.9900 

T.SPEEDTEST 

SPEEDTEST 


FORMAT (7/85, S. 20) 
T.FORMAT.OBJ 
FORMAT.OBJ 


BITEDITOR (7/85, S. 29) 
NORMAL x 


FETT x 
FETT.INVERSE x 


PASTOPRO.1D (7/85, S. 62) x 
PASTOPRO.2D 
T.PASTOPRO.O 
PASTOPRO.O 


T.CONVERT (7/85, S. 69) 
CONVERT 


T.VORLESER (7/85, S. 71) 
VORLESER 


Disk #8 
(Heft 8, 1985, DOS-Format) 


HELLO x 
ASMDIV * 


DISKTEST (8/85, S. 14) 
DISKTEST.START 
T.DISKTEST 


KOPY (8/85, S. 22) 
BATCHKOPY 
T.GETSETINFO 
GETSETINFO 
BILDTEST 


T.BOX.COPY (8/85, S. 26) 
BOX.COPY 

T.HSCRN 

HSCRN 
GRAF.QUATTRO.1 


T.DOUBLE.LORES (8/85, S. 34) 
DOUBLE.LORES 
DOUBLE.LORES.DEMO 


START.CMD (8/85, S. 40) 
HMENUE.CMD x 
AUFNAHME.CMD x 
AUFMASKE.CMD x 
AUSGABE.CMD « 
SUCH.CMD x 
EDITFNAME.CMD x 
SUCHVNAME.CMD x 
SUCHBEME.CMD x 
SCHREIBA.CMD x 
SCHREIBL.CMD x 
LOESCH.CMD x 


IDSEARCH.PASCAL.SOURCE 
(8/85, S. 49) 


FAKULTAET.DEMO (8/85, S. 57) 
T.FAKULTAET 

FAKULTAET 

GRAFIK.DEMOS (8/85, S. 68) 
ZEICHENJAGD (8/85, S. 70) 


T.RAM.FRE.NEU (8/85, S. 70) & 
RAM.FRE.NEU 
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Um es gleich vorweg zu sagen: Das Pas- 
cal-Preisausschreiben aus Heft 7/85 war 
„ein Schuß in den Ofen“. Als das erste 
Peeker-Heft im September 1984 erschien, 
wurde ein Primzahlen-Wettbewerb ausge- 
schrieben, an dem sich über 270 Leser 
beteiligten, und das, obgleich der Peeker 
damals naturgemäß noch kaum bekannt 
war. Demgegenüber gingen jetzt, nach- 
dem sich der Peeker mittlerweile zu einer 
bekannten und weitverbreiteten Apple- 
Zeitschrift gemausert hat, insgesamt nur 
ein knappes Dutzend Lösungen ein, von 
denen nur ganze zwei richtig waren. Läßt 
sich daraus schließen, daß es unter den 
Apple-Programmierern nur ganz wenige 
Pascal-Programmierer gibt und daß es un- 
ter den Pascal-Programmierern nur ganz 
wenige gibt, die wirklich schwierige Pro- 
gramme schreiben können? Ich kann es 
kaum glauben, aber es muß wohl so sein. 
Zwar wird Pascal an Schulen gelehrt, doch 
scheint man dort nur selten über die 
Grundlagen hinauszukommen. Und Hob- 
byisten sind wohl eher geneigt, sich mit 
Applesoft und Assembler zu befassen, zu- 
mal das Pascal-Betriebssystem erst bei 
einem voll ausgebauten Apple-System in- 
teressant wird. Außerdem kostet das Pas- 
cal-Betriebssystem knapp DM 1000,-, 
während der Applesoft-Interpreter gratis 
im ROM mitgeliefert wird. Für mich stellt 
sich natürlich jetzt die Frage, ob ich in 
Zukunft mehr oder weniger Pascal-The- 
men behandeln soll. Einerseits müßte man 
weniger Pascal-Programme bringen, weil 
das Interesse an Pascal zu gering ist. An- 
dererseits könnte man mehr Pascal-The- 
men behandeln, weil ein Teil der Apple- 
Besitzer noch keinen rechten Zugang zu 
Pascal gefunden hat, obgleich ein Interes- 
se vorhanden ist. Wie dem auch sei, 
schreiben Sie mir, ob wir in Zukunft mehr 
oder weniger Pascal-Aufsätze bringen sol- 
len. Verwenden Sie zu diesem Zweck die 
in diesem Heft eingeheftete Info-Karte, auf 
der Sie nur das Gewünschte oder Vorhan- 
dene anzukreuzen brauchen. 


Zurück zum Wettbewerb. Der 1. Preis mit 
DM 500,- geht an Herrn 

Ulrich Allgeier 

in Stuttgart. Sein Punktesaldo beträgt 
4394. Den 2. Preis mit DM 250,- hat Herr 
Gil Müller 

in Köln mit einem Punktesaldo von 5877 
gewonnen. Die Programme beider Gewin- 
ner laufen unter Pascal 1.1 und 1.2, elimi- 
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nieren Ctrl-Zeichen und Bit-7-on-ASCIl- 
Zeichen aus dem ProDOS-Textfile, finden 
jeden beliebigen Textfile-Eintrag im Pro- 
DOS-Volume-Directory (also nicht nur den 
1. Eintrag des 1. Blocks), können bis zu 
32K große Dateien verarbeiten, die auf der 
ProDOS-Diskette nicht als kontinuierliche 
Blocks abgelegt sind, und laufen auf jeder 
normalen 35-Spur-Pascal-Diskette. Bei al- 
len anderen Lösungen war die eine oder 
andere Forderung nicht erfüllt. Einige „LÖ- 
sungen“ liefen sogar nur auf ihrer eigenen 
Diskette; dies war nun doch wohl etwas zu 
plump. Übrigens mußte man Pascal 1.2 


PROTOPAS-Quellcode (ALLG.TEXT) 
von Ulrich Allgeier 
(laßt sich normal compilieren) 


Pascal-Preisausschreiben 


nicht kennen, um die Lösung zu erstellen, 
denn bei seriöser Programmierung wäre 
eine Pascal-1.1-Programm auch stets un- 
ter dem Pascal-1.2-Betriebssystem gelau- 
fen. Von absoluten Systemadressen wie 
„Time“ durfte man dann jedoch nicht 
mehr ausgehen. 

Auf der Peeker-Sammeldiskette #9 befin- 
den sich die beiden Lösungen der zwei 
Gewinner unter den Dateinamen ALLG- 
‚TEXT und ALLG.CODE für die PROTO- 
PAS-Version von Ulrich Allgeier sowie 
MUEL.TEXT und MUEL.CODE für die 
PROTOPAS-Version von Gil Müller. us 


TYPE B=INTEGER;Y=PACKED ARRAY[O..1]OF 0..255;VAR 
,L,H,N,M:B;F:FILE;PROCGEDURE P(V:B);VAR T:RECORD CASE BOOLEAN OF 


FALSE: (A:B);TRUE:(P: } Y);END;BEGIN T.A:=1;T.P [0]: 


=V;l:=1+1;END;PROCEDURE 


O;BEGIN 
1:=513;P(104);P(133);P(18);P(104);P(133);P(19);P(104);P(133);P(0);P(104);P(133) 
;P(1);P(104);P(104);P(160);P(1);P(177);P(0);P(153);P(6);P(0);P(185);P(0);P(O);P 
(153) ;P(2);P(0);P(153);P(4);P(0);P(136);P(16);P(239);P(162);P(255);P(198);P(6); 
P(208);P(4);P(198); BUnRE (8 4 P(230);P(2);P(208);P(2);P(230);P(3);P(160); 
P(2);P(177);P(2);P(41);P(127);P(168); En, P(240);P(40);P(201);P(32);P( 
144);P(227);P(138);P(48);P(37);P(152);P(73);P(32);P(240);P(12);P(202);P(48);P( 
29);P(208);P(10);P(169);P(32);P(32);P(113); P(2);P (208) ;P(20);P(232);P(208);P( 
204);P(169);P(16);P(32);P(113);P S. P(138);P(105);P(32);P(32);P(113);P(2);P(208 
);P(4);P(162);P(0);P(240);P(2);P(162);P(255);P(152);P(32);P(113);P(2);P(208); g 
179);P(230);P(4);P(208);P(2);P(230);P(5),P(132);P(16);P(160);P(2);P(145);P(4);P 
(164);P(16); nn );P(169);P(0);P(32);P(113);P(2);P(165);P(1);P(69);P(5);P(41);P( 
3);P(208);P(243);P(165);P(0);P(197);P(4);P(208);P(237);P(160);P(1);P(169);P(0); 
P(145);P(0);P(136);P(16 S );P(229);P(1);P(74);P(145);P(0);P(165);P(19);P(72) 
2),P(9 


;P(165);P(18);P(72);P(9 


6);1:=-320;P(0);P(2); 


END;PROCEDURE 


R;VAR A:PACKED ARRAYI[O. ..2047]OF 0..255;D:ARRAY[-1..16383]OF B;BEGIN REPEAT 
UNITREAD(5,A,2048,2) ;1:=-16151;P(0);WRITELN('PROTOPAS U.Allgeier’);1:=0;FOR 


N:=0 TO 3 DO FOR M:=0 TO 12 DO BEGIN H:=A[Nx512+M»x39+4]MOD 
16;1F(AIN*5124+Mx39+20]=4)AND(H>O)THEN BEGIN 
(*$1-x)l:=1+1;D[1]:=N;D[I+99]:=M;WRITE(I,' ’);FOR L:=1 TOH DO 
WRITE(CHR(A[N&512+M&39+4+L]));WRITELN;END;END;READLN(L);UNTILL 
INI1..1];L:=D[L]*#512+D[L+99]*39:H:=A[L+4]DIV 
16:D[-1]:=(A[L+25]+A[L+26]*256):WRITE(’x#** START’,CHR(7));CASE H 

OF 1:UNITREAD(5,D[0],512,A[L+21]+A[L+22]*256);2:BEGIN 


UNITREAD(5,A,512,A[L+21]+A[L+22]*256);H:=0;N:=A[H]+256%A[H+256];M:=N;1:=1; 
REPEAT IFN+I=A[H+1]+256*A[H+1+256] THEN BEGIN I:=1+1;END ELSE BEGIN 
UNITREAD(5,D[256*H],512*1,N);H:=H+1;1:=1;N:=A[H]+256*A[H+256];END;UNTIL 
N=0;END;END;l:=-16151;P(0);P(0); UNITSTATUS(9,D,1);H:=BLOCKWRITE(F,D[0],D[-1],2) 


;‚WRITE(CHR(7), *##* ENDE’);CLOSE(F,LOCK);END;BEGIN 
REWRITE(F,'TEMP.TEXT’);O;R;END. 
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Der Computerladen in Nürnberg 


Erst seit gut einem Jahr, seit dem 2. Mai 
1984, befindet sich der HIB Computerla- 
den in Nürnberg, in der Äußeren Bayreu- 
ther Straße 72. Entgegen der Meinung 
verschiedener Hardware-Hersteller hat 





Personal Computer 


Im Bereich Personal Computer werden die 
Rechner von Zenith, Z-150 und Z-160, 
und der Rainbow von Digital angeboten. 
Zu diesen Computern werden angemes- 
sen leistungsfähige Drucker von Brother, 
Epson und NEC betriebsbereit vorgeführt. 
Farbmonitore von Taxan und IBM-kompa- 
tiple Interface-Karten von AST werden 
ebenfalls im Betrieb gezeigt. Als autori- 
sierter Fachhändler von „Microsoft“, „Lo- 
tus“ und der „SM-Software-AG“ konzen- 
triert sich das Software-Angebot in diesem 
Bereich auf den Anwender im Büro. 


Home-Computer 


Das Home-Computer-Angebot reicht vom 
Commodore 64, der als Lern-Computer 
für Kinder oder Spielcomputer für Jugend- 
liche und Erwachsene seine Käufer findet, 


sich das Konzept mehr als bewährt: Man 
hat sich nicht auf einen Hardware-Herstel- 
ler fixiert und mit dieser Methode bereits 
im ersten Jahr einen Umsatz von mehr als 
1,5 Mio. DM erreicht. 


über den Schneider CPC464 bis zum Al- 
phatronic PC, der meist als kostengünsti- 
ges Textverarbeitungssystem optimal ein- 
gesetzt wird. 


Hier findet der Besucher auch ein umfang- 
reiches Angebot an Fachliteratur und Soft- 
ware für den Heimbereich. Wie bei den 
Personal Computern werden auch für die- 
se Rechner in Preis und Leistung der An- 
wendung angemessene Drucker, Monito- 
re, Joysticks und immer die neuesten Pe- 
ripherie-Geräte angeboten. Druckerpapier 
und Farbbänder für alle angebotenen 
Drucker sind ebenso vorrätig wie Disket- 
ten in jeder Qualität und Ausführung. 


Apple-Computer 


Bei Hobby-Anwendern genauso beliebt 
wie bei Büromenschen sind die Rechner 
Apple lic, Apple Ile und der Macintosh. 


Dieses Händler-Profil basiert auf einer Selbstdarstellung von HIB. 
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Ändler-profil 4.4 


Deshalb wurden sie auch im mittleren Teil 
des Ladens, neben und gegenüber der 
Kasse aufgestellt. Für den Macintosh wer- 
den an Software neben der gesamten Pro- 
duktpalette der Firma Microsoft und 
„Jazz“ von Lotus hauptsächlich Spiel- 
und Grafikprogramme angeboten. Eine 
ganz besondere Stärke des HIB-Compu- 
terladens liegt in der Anpassung verschie- 
denster Geräte an alle gängigen Micro- 
computer. Neben Anschlußmöglichkeiten 
von z.B. Typenraddruckern am Macintosh 
wird seit neuestem ein serieller Drucker- 
Puffer angeboten, der für alle für den Mac- 
intosh erhältlichen Druckmodelle lieferbar 
ist. 


Die Apple-Iic-Besitzer sind beeindruckt 
von der Qualität des TAXAN-Monitors, der 
über die TAXAN-RGB-Karte betrieben 
wird, und vom günstigen Preis des ange- 
schlossenen Chinon-Laufwerks. 


Das umfangreichste Angebot an Periphe- 
rie kann man für den Apple II+ und Ile 
vorweisen. Neben Farbmonitoren, RGB-, 
80-Zeichenkarten, IC-Test-Karten und In- 
terface-Karten für fast jede Anwendung 
sind die Kunden immer wieder von der 
Kapazität (640K formatiert) und einfachen 
Bedienung der angeschlossenen 5 1/4"- 
und 3 1/2“-Laufwerke begeistert. Da die- 
se Rechnerserie nach wie vor ausgespro- 
chen vielfältig einsetzbar ist, bietet der 
HIB-Computerladen von der Hobby-An- 
wendung bis zum Einsatz als Meß- oder 
Steuergerät fast alles, was den Kunden 
interessiert. Als erstes Standard-Soft- 
ware-Produkt der Firma HIB befindet sich 
seit Februar 1985 ein Terminalprogramm, 
„HIB-Modem-Transfer“, auf dem Markt, 
das zusammen mit einem Anschlußkabel 
(vom Game-I/O des Apple II+ oder Apple 
Ile zur V.24-Schnittstelle eines Akustik- 
Kopplers) geliefert wird und für den Hob- 
by-Anwender eine preiswerte Alternative 
zu herkömmlichen Kommunikationsmög- 
lichkeiten bietet. 


Neben dem Ladengeschäft ist auch der 
Versand, bedingt durch die intensive An- 
zeigenwerbung in Fachzeitschriften, zu ei- 
nem wichtigen Vertriebszweig geworden. 
Sowohl Endanwender wie auch Händler 
im gesamten Bundesgebiet, Berlin, Öster- 
reich und der Schweiz werden schnell und 
zuverlässig beliefert. 


Für die Zukunft ist geplant, die kommer- 
ziellen Anwender stärker als bisher anzu- 
sprechen. Dazu wird die Produktpalette 
nach oben hin abgerundet und das ge- 
samte Computer-Programm für diesen 
Bereich in einer neuen Zweigstelle des 
HIB-Computerladens untergebracht. 
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Erfahrungsbericht OPERATOR | 


von Reiner Hammerschmidt 


Die OPERATOR-Tastatur von AFC 
ist eine ergonomisch flache Tasta- 
tur, die zum Anschluß an verschie- 
dene Rechner geeignet ist. Sie 
enthält neben dem Haupttastenfeld 
mit 62 Tasten 15 weitere Funk- 
tionstasten sowie rechts einen 
Zehnerblock. Alle Tasten — auch 
die programmierbaren — haben Au- 
torepeat, d.h. wird eine Taste län- 
ger gedrückt, wird das entspre- 
chende Zeichen (oder auch meh- 
rere) automatisch wiederholt. 

Der Vorteil dieser auf den ersten 
Blick nicht gerade billigen Tastatur 
(ca. 450,- DM) liegt in der Pro- 
grammierbarkeit von 39 Tasten in 
je 2 Ebenen (normal und Shift). Zu 
den programmierbaren Tasten ge- 
hören die 15 Funktionstasten, der 
Zehnerblock und die 4 im Hauptta- 
stenfeld befindlichen Cursor-Ta- 
sten (!) sowie die Tasten DEL und 
TAB. Ein entscheidender Vorzug 
dieser Tastatur gegenüber ande- 
ren besteht in der Programmier- 
barkeit der Cursor-Tasten, so daß 
man nicht umlernen muß, wenn 
man z.B. einmal mit DOS und das 
andere Mal mit CP/M arbeitet, 
denn die Cursor-Steuerzeichen 
sind nicht überall die gleichen. Da 
aber jede Taste doppelt program- 
miert werden kann, ist es möglich, 
die eine Ebene für DOS und die 
andere für CP/M vorzusehen. Auf 
jeder Taste können beliebige Zei- 
chenfolgen bis zu je 254 Zeichen 
abgelegt werden, allerdings zu- 
sammen nur maximal 2032 Zei- 
chen. Dabei können alle Bytes von 
$00 bis $FF verwendet werden, 
auch wenn beim Apple hard- 
warebedingt nur die Zeichen bis 
$7F erkannt werden, was aber kei- 
ne Einschränkung darstellt, denn 
der ASCIl-Code umfaßt ohnehin 
nur 7 Bits. 

Mit dem Haupttastenfeld sind alle 
ASCII-Zeichen von $00 bis $7F mit 
Ausnahme von $60 (einfaches Ab- 
führungszeichen) erzeugbar, was 
man sich jedoch - falls benötigt — 
auf eine programmierbare Taste le- 
gen kann. Ebenfalls in das Haupt- 
tastenfeld integriert ist die Reset- 
Taste, die nur zusammen mit der 
Control-Taste gedrückt ein Reset- 
Signal an den Prozessor abgibt. 
Da die Tastatur universell gehalten 
ist, wird sie mit einem ca. im lan- 
gen offenen Kabel geliefert (die 
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Tastatur kann sowohl als serielle 
wie auch, am Apple, als parallele 
Peripherie betrieben werden). Zum 
Betrieb muß man sich dann selbst 
um eine Steckverbindung bemü- 
hen, deren Anschluß aber, dank 
der mitgelieferten Dokumentation, 
nicht schwierig ist. Die Dokumen- 
tation selbst umfaßt ca. 20 Seiten 
und beschreibt Anschluß, Bedie- 
nung und Programmierung. Außer- 
dem ist ein Schaltbild enthalten; 
aber leider kein Listing des Be- 
triebsprogramms für die eingebau- 
te CPU 6511. Beim Kauf der OPE- 
RATOR sind alle programmierba- 
ren Tasten mit DOS- und CP/M- 
Befehlen für den Apple belegt. 
Dies läßt sich aber ändern (s.o.). 


Bedienung 


Die Bedienung der Tastatur ist ein- 
fach, die Tasten sind griffig und 
auch die Lage der Cursortasten 
prägt sich schnell ein. Besonders 
gut gelungen ist die große RE- 
TURN-Taste. Als Nachteil muß 
man jedoch die verwirrende Dop- 
pelbeschriftung der Tasten YundZ 
anführen. Wenn man beim Schrei- 
ben auf die Tasten sieht, muß man 
des öfteren Überlegen, ob die an- 
gepeilte Taste nun ein Z oder ein Y 
erzeugt, was ja mittels Lötbrücke 
umschaltbar ist (QWERTZ - 
QWERTY). Auch wenn einmal ein 
anderer am Rechner arbeitet, stellt 
sich jedesmal die Frage: Y oder Z? 
Dies hätte der Hersteller besser 
machen können durch normal be- 
schriftete zusätzliche Tastenkap- 
pen, die dann bei Bedarf umge- 
steckt werden könnten. Eine Nach- 
frage bei AFC zu diesem Problem 
ergab, daß es keine normalen, nur 
mit Y bzw. Z beschriftete Tasten- 
kappen gibt. 

Die Programmierung der Tastatur 
geschieht durch Ablegen der ent- 
sprechenden ASCiIl-Zeichenfol- 
gen in einem EPROM 2716, wel- 
ches dann in einen einzulötenden 
IC-Sockel auf der Tastaturplatine 
einzusetzen ist. Da das Editieren 
der zu programmierenden Befehle 
nicht ganz einfach ist, wurde hierzu 
ein Programm entwickelt, das In- 
teressenten beim Autor gegen Er- 
stattung der Unkosten erhalten 
können. (Zuschriften werden von 
der Peeker-Redaktion weiterge- 
leitet.) 


Fazit 
Zusammenfassend kann nach 
6monatigem Gebrauch gesagt 


werden, daß die OPERATOR ihr 
Geld wert ist. Es macht Spaß, an 
der Tastatur zu arbeiten, auch 
wenn es am Anfang schwerfällt, 


Tastatur Operator Ile 


Die OPERATOR Ile 


getestet von Harald Grumser 


Mit der OPERATOR Ile kann nun 
auch der Apple Ile mit einer kom- 
fortableren Tastatur ausgestattet 
werden, die darüber hinaus einige 
weitere Vorzüge gegenüber der 
OPERATOR | aufweist. 

Ein spezielles Interface für den 
(Original-)Apple Ile verbindet die 
Tastatur mit dem Rechner. Dabei 
werden außer der Reset- auch die 
beiden Apfeltasten als Hardware- 
Tasten unterstützt. Die Umschal- 
tung zwischen deutschem und 
amerikanischem Zeichensatz er- 
folgt danach von der Tastatur aus 
(QWERTZ — QWERTY). 

Der Einbau dieses Interfaces auf 
der Mutterplatine (wegen dieser 
Hardware-Tasten kann kein Slot 
benutzt werden) gestaltet sich et- 
was schwierig, da zwei ICs ent- 
nommen und an deren Stelle die 
Interface-Platine eingesetzt wer- 
den muß. 

Da die OPERATOR | bereits be- 
sprochen wurde, soll hier nur auf 
die Änderungen eingegangen 
werden. 


Die Unterschiede zur 
OPERATOR I 


Die neue OPERATOR entspricht 
im wesentlichen ihrer Vorgängerin. 
Um für die Apfeltasten Platz zu 
schaffen, wurde die Cursorsteue- 
rung in das Feld der Funktionsta- 
sten verlegt, wodurch nur noch 13 
zur Verfügung stehen. 


unter den programmierten Tasten 
jeweils direkt diejenige mit dem 
gewünschten Befehl zu finden. 
Das flache Design und das prell- 
freie Arbeiten tun ein übriges. 
Bleibt nur der Nachteil der Doppel- 
beschriftung der Tasten Y undZ ... 





Als Erweiterungen sind die Mög- 
lichkeiten eines Software-Schlos- 
ses (Password) und eines wählba- 


ren akustischen 
nennen. 

Der wichtigste Unterschied dürfte 
in der freien und stets wiederhol- 
baren Programmierung der Funk- 
tions-, Cursor-, Tab- und Delete- 
Tasten sowie des Arithmetikblocks 
(10er-Block mit Rechenzeichen) 
liegen, die in drei Ebenen (zwei 
Ebenen bei der OPERATOR |) er- 
folgen kann. Dadurch lassen sich 
über 100 eigene Funktionen (maxi- 
mal 14 Zeichen pro Taste) realisie- 
ren. Diese Programmierung ist von 
der Tastatur aus sehr einfach zu 
handhaben und läßt sich jederzeit 
wiederholen, so daß auch im Be- 
trieb „auf die Schnelle“ eine eige- 
ne Funktion festgelegt werden 
kann (als zusätzliche Erleichterung 
kann ein ASCII-Wert nun auch he- 
xadezimal eingegeben werden). 
Nach dem Ausschalten des Rech- 
ners bleibt die Programmierung er- 
halten (EEPROM). 

Als sehr vorteilhaft im täglichen 
Gebrauch erweist sich die Mög- 
lichkeit, die drei Ebenen (Unshift, 
Shift und Ctrl) zu vertauschen. So- 
mit kann beim Betriebssystem- 
wechsel auch die jeweilige erste 
Ebene gewählt werden; die ge- 
wünschte Funktion (z.B.CATALOG 
unter DOS 3.3, CAT unter ProDOS 
und DIR unter CP/M) wird somit 


Signals zu 
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stets durch einfachen Tastendruck 
ausgelöst. 


OPERATOR als Schnittstelle 


Die Operator | und Ile kann mit 
einem Barcode- oder Magnetkar- 
tenleser ausgestattet werden. Die 
Signale werden automatisch in die 
entsprechenden ASCIl-Werte um- 
gewandelt und von der Tastatur an 
den Rechner geschickt. Somit ist 
ohne Programmänderung eine ein- 
fache Umstellung auf eine alterna- 
tive Eingabe möglich. Auch kann 
eine Maus oder ein Rollball ange- 
schlossen werden, deren Bewe- 
gungen in wiederholte Cursorsi- 
gnale verwandelt werden. 


Fazit 


Das bereits zur OPERATOR | Ge- 
sagte gilt auch für die OPERATOR 
Ile. Als kleines Manko bleibt die 
Shift-Lock-Taste zu nennen, deren 
Zustand nicht abgelesen werden 
kann. Ansonsten gibt nicht nur der 
Preis von DM 755,- Anlaß dazu, 
dieses Produkt als einen Mercedes 
unter den Tastaturen zu be- 
zeichnen. 

Anmerkung: Diese Tastatur wird 
auch als OPERATOR |l zu einem 
Preis von DM 695,- für Rechner 
mit seriellem oder parallelem An- 
schluß vertrieben. 


Dazzle Draw und Mousepaint 


Erfahrungsbericht von Dieter Charchot 





Ausdruck von Dazzle Draw 


Dazzle-Draw ist ein Double-Hires- 
Zeichenprogramm für den Apple 
Ic bzw. Ile mit 64K-Karte, das von 
der Firma Broderbund produziert 
wird und unter ProDOS läuft. 


Wenn Sie das Vergrößerungsglas 
aus der Grafik zu diesem Artikel 
ein wenig herumschwenkten, dann 
würden Sie ein kleines Nagetier 
sehen, das sich schamhaft in eine 
dunkle Ecke drückt. Es ist wahr- 
scheinlich eine Apple-Maus, und 
der Grund für das Unbehagen des 
sonst recht großspurig daherkom- 
menden Mäuschens dürfte das 
Apple-Programm Mousepaint 
sein, mit dem auch Apple-lle-Be- 
sitzer in den Genuß eines von der 
Maus unterstützten Grafikpro- 
gramms kommen. Wenngleich von 
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DOPPELTE AUFLOESUNG 





PON BRODERBUND 
“THE DOUBLE HI-RES ERAPHIES TOOL" 







BRZZLE 
DRRLE 


den kreativ nutzbaren Möglichkei- 
ten recht brauchbar, hat es jedoch 
einige unverständliche Mängel, die 
den Spaß an spielerischer Gestal- 
tung relativ schnell und nachhaltig 
verderben. 

So sieht man beim Erstellen der 
Grafiken leider nur einen Teil der 
Gesamtbildfläche. Wer alles sehen 
möchte, muß erst umständlich ma- 
nipulieren. Ist man dann endlich 
fertig, speichert man stolz sein 
Meisterwerk auf Diskette. Leider 
muß man den Dateinamen auf ei- 
nem kleinen Notizzettel vermer- 
ken, denn ein Catalog-Aufruf ist 
leider nicht möglich. Hat man das 
Zettelchen verlegt oder verloren, 
muß man das Programm verlas- 
sen, um auf der Diskette nach dem 
Rechten zu sehen. 


TESTDERICHTE 4.4 


Was hat dies alles mit der Lupe zu 
tun? Nun, die Mängel dieses „ge- 
mausten“ Programmes werden 
dann unübersehbar, wenn man es 
an einer Alternative messen kann, 
und diese Möglichkeit bietet Dazz- 
le Draw, ein neues Grafikpro- 
gramm von Broderbund. Dieses 
Programm ist ein echtes Double- 
Hires-Programm mit einem hervor- 
ragenden Darstellungsvermögen. 
Neben vielen anderen interessan- 
ten Möglichkeiten kann der „Ap- 
ple-Maler“ z.B. unter 16 Farben 
und 30 Mustern wählen, die darauf 
warten, Grafiken von verblüffender 
Wirkung zu zieren. 


Zuvor bootet man die Systemdis- 
kette, wählt per Menü als Eingabe- 
möglichkeit Maus, Grafiktablett, 
Koala Pad oder Joystick und instal- 
liert schnell noch durch „Anklik- 
ken“ der richtigen Daten in einer 
auf Wunsch angeboten Liste von 
Druckern und Interfacekarten sei- 
ne Konfiguration - fertig! 


Nun kann man sich entscheiden, 
ob man gleich in das Programm 
einsteigen oder zuvor noch eine 
Sicherheitskopie anfertigen möch- 
te. Hier erlauben die Entwickler 
von Broderbund die unproblemati- 
sche Anfertigung einer (und wirk- 
lich nur einer einzigen) Backup- 
Kopie des Programms zu Sicher- 
heitszwecken. 


Anschließend starrt ein jungfräuli- 
cher Bildschirm den Apple-Grafi- 
ker an, nur unterbrochen von einer 
Befehlszeile am oberen (und gele- 
gentlich zusätzlich am unteren) 
Rand. Hier findet man die einzel- 
nen Sparten, die man mit dem Cur- 
sor ansteuern kann. Zur Ehrenret- 
tung der kleinen Maus sei bestä- 
tigt, daß man damit den normaler- 
weise benutzten kleinen Pfeil bes- 
ser und exakter im Griff hat als mit 
dem Joystick. Aber auch hier 
macht Übung den Meister. 


Hat man „getroffen“, bieten sich in 
Form der inzwischen wohl hinläng- 
lich bekannten „Pull-Down-Me- 
nüs“ viele weitere Möglichkeiten 
der Bildgestaltung und Manipula- 
tion. So findet man unter dem Fir- 
mensignet der Krone einige 
Grundfunktionen wie z.B. die je- 
derzeit wieder aufrufbare Printer- 
Installation, die Programmende- 
Funktion oder auch eine recht 
nützliche Hilfsfunktion, die den 
Cursorpfeil in ein Fragezeichen 
verwandelt, mit dem man alle Pro- 
grammfunktionen anklicken kann, 
zu denen dann prompt ein Fenster 
mit Kurzinformationen erscheint, 
die dem Benutzer weiterhelfen. So 


kann man durch das ganze Pro- 
gramm gelangen, ohne das aus- 
führliche Manual studiert zu haben, 
das aber seine Berechtigung durch 
die Vermittlung von Feinheiten und 
Zusatzinformationen hat. 

Hat man seine Neugier durch ei- 
nen ersten Streifzug durch alle Ru- 
briken und Untermenüpunkte erst 
einmal gestillt, kann man seinem 
gestalterischen Drang wirklich 
freien Lauf lassen. Es sind fast kei- 
ne Grenzen gesetzt. Man kann 
Sprühen und Malen. Linien ver- 
schiedenster Ausführungen, 
Rechtecke, Felder, Kreise oder EI- 
lipsen sind kinderleicht. Alle Flä- 
chen können mit Farben oder Mu- 
stern gefüllt werden. Auch nach- 
trägliche Änderungen sind kein 
Problem. Hat man z.B. mit dem 
normalen Programm zum Koala 
Pad eine Fläche mit kleinem Mu- 
ster gefüllt, sind weitere Füllversu- 
che so gut wie hoffnungslos. Nur 
kleinste Stückchen werden bear- 
beitet. Bei Dazzle Draw „schaltet“ 
man diese Schwierigkeiten durch 
eine Zusatzfunktion zu „Fill“ ein- 
fach aus. 

Man kann Bildteile ausschneiden, 
drehen, invertieren, kippen, kopie- 
ren, löschen und sogar in selbst 
definierten Ausschnitten oder in 
dem ganzen Bild eine Farbe durch 
eine andere ersetzen oder zwei 
Farben miteinander vertauschen. 
Invertieren funktioniert nicht nur 
bei Schwarzweiß-, sondern auch 
bei Farbbildern. 

Ist ein kleines Mißgeschick pas- 
siert, kann man das Bild retten, 
indem man „Undo“ anklickt. Da- 
durch wird die zuletzt vorgenom- 
mene Änderung rückgängig ge- 
macht und der alte Zustand wie- 
derhergestellt. 

Will man die Qualitäten von Dazzle 
Draw voll auskosten, so sollte man 
über die Möglichkeit der Farbdar- 
stellung, z.B. auf einem Farbfern- 
seher, verfügen. Auf einem mono- 
chromen Monitor werden die Far- 
ben wie gewohnt durch unter- 
schiedliiche Schraffuren darge- 
stellt. Das Programm ist dann zwar 
weiterhin benutzbar, aber es er- 
schließt nicht die Wirkung, die un- 
ter Anwendung der Farben erzielt 
wird. 

Eine weitere interessante Option 
stellt der Textmodus dar, in dem 
Beschriftungen in verschiedenen 
Größen und unterschiedlichen 
Schriftarten vorgenommen werden 
können. Sollte der Text nicht auf 
Anhieb sitzen, kann auch hier mit 
der Ausschneide/Einklebe-Metho- 
de nachgeholfen werden. 
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Genauigkeitsfanatiker werden sich 
über das Zoom freuen, das einen 
kleinen Bildauschnitt auf das volle 
Format vergrößert und in einem 
(sogar veränderbaren) Raster die 
Plazierung, Einfärbung oder Lö- 
schung einzelner Punkte möglich 
macht, während ein Ganzbild im 
Miniformat am rechten, unteren 
Bildrand den Überblick bewahrt. 
Überhaupt wird außer dem oberen 
Bildrand, der ja zur Bereitstellung 
der Hauptrubriken benutzt wird, 
auch der untere Bildrand fast im- 
mer beim Aufruf einer Funktion für 
weitere Optionen benutzt. Um das 
Bild auch hier bearbeiten zu kön- 
nen, kann es einfach mit einem 
„Hebel“ nach oben oder unten um 
genau diese Streifenbreite ver- 
schoben werden. Ferner wird eine 
raffinierte Spiegelfunktion mit ver- 
schiedenen Symmetrieebenen an- 
geboten, die zu selbstgemalten 
Kaleidoskopbildern verhilft. 

Mit der Slide-Show-Option werden 
ausgewählte Bilder auf der Pro- 
DOS-formatierten Diskette gespei- 
chert, wobei Reihenfolge, Stand- 
dauer und Art des Bildwechsels 
frei definierbar sind - eine faszinie- 
rende Möglichkeit, die Spaß macht 
und auch auf vielerlei Art sinnvoll 
genutzt werden kann. Viele An- 
wender, die z.B. Werbung betrei- 


ben, werden sich über einen sol- 
chen individuell gestaltbaren Blick- 
fang freuen. 


Die Programmierer der Firma Bro- 
derbund haben Ihre Schularbeiten 
gut und gründlich gemacht. Dazzle 
Draw bietet weit mehr Möglichkei- 
ten als Mousepaint. Es läuft auf 
einem Apple IIc oder Ile mit 128 K 
Speicher, benötigt keine weitere 
Hardware-Ergänzung (wie z.B. das 
Maus-Interface) und kann z.B. pro- 
blemlos mit einem normalen Joy- 
stick gesteuert werden. 


Die angefertigten Slide-Show-Dis- 
ketten sind selbständig lauffähig 
und können unabhängig vom 
Hauptprogramm eingesetzt wer- 
den. Die Anfertigung von an- 
spruchsvollen und hochwertig wir- 
kenden, bildiichen Darstellungen 
sollte auch für den ungeübten An- 
wender kein Problem darstellen. 


Ein weiterer Pluspunkt dürfte der 
erstaunlich niedrige Preis sein. Für 
nur ca. DM 160,- ist das Programm 
mit Manual bei einschlägigen Im- 
porteuren erhältlich. Broderbund 
beschreitet hier einen (längst fälli- 
gen) Weg, der durch das Angebot 
von außerordentlich attraktiven 
Programmen zu vernünftigen Prei- 
sen den Raubkopierern das Ge- 
schäft verderben dürfte. 


DMP-Charger - eigene Zeichensätze 
auf dem Matrixdrucker 


getestet von Harald Grumser 


Einer der wesentlichsten Vorteile 
von Matrixdruckern gegenüber 
Schönschreibdruckern ist die 
Möglichkeit der Grafikausgabe und 
der Erstellung eigener Zeichensät- 
ze. Wer dieses Problem beim 
Imagewriter in Angriff nehmen 
wollte, wurde durch die spärliche 
Dokumentierung und die z.T. feh- 
lerhaften Angaben im Drucker- 
handbuch jäh enttäuscht. 

Die Firma Hunstig, Labor für Nach- 
richtentechnik, vertreibt ein Pro- 
gramm, mit dessen Hilfe eigene 
Zeichensätze erstellt werden kön- 
nen, um dann in Anwenderpro- 
grammen (Appleworks, Apple- 
writter, Wordstar...) oder eigenen 
Programmen eingesetzt zu wer- 
den. 


Arbeitsweise 
Der DMP-Charger (Dot Matrix 
Printer CHARacter GEneratoR) 


nutzt die Möglichkeit aus, eigene 
Zeichensätze in den Druckerpuffer 
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zu laden und diese dann bei Bedarf 
zu aktivieren. Dabei kann die Auf- 
lösung dieser neuen Zeichen 
durch entsprechende Anordnung 
verdoppelt werden, so daß „Mac- 
Like Zeichen“ (Bezeichnung der 
Firma Hunstig) entstehen können. 
Das hier vorgestellte Programm 
übernimmt nun die Übertragung 
dieses neuen Zeichensatzes und 
bietet neben einigen mitgelieferten 
Zeichensätzen einen komfortablen 
Editor, mit dessen Hilfe neue Zei- 
chen erstellt oder alte Zeichen ge- 
ändert werden können. 


Bedienung 

Nach dem Booten der Pascal-1.2- 
Diskette (das Pascal-Betriebssy- 
stem ist nicht erforderlich) er- 
scheint ein Menü, das den kom- 
pletten Ablauf regelt und den Be- 
nutzer sicher ans Ziel führt. Beim 
erstmaligen Gebrauch muß der 
Druckertyp festgelegt werden, was 


später nicht mehr geändert werden 
kann (sollte nur auf einer Disket- 
tenkopie erfolgen). Wenn kein 
neuer Zeichensatz erstellt werden 
soll, genügt das Laden eines be- 
reits vorhandenen, der auch sofort 
aktiviert werden kann. 


Im anderen Fall wählt man den Edi- 
tor, um neue Zeichen Punkt für 
Punkt zu erstellen oder einzelne 
Zeichen zu ändern, wobei die 
Möglichkeit des Mischens die Fle- 
xibilität erheblich vergrößert. Der 
so neu gewonnene Font kann dann 
auf Diskette gespeichert werden. 
Nach Beendigung der Arbeit ver- 
läßt man das Menü und bootet das 
gewünschte Betriebssystem oder 
Programm. Danach stehen die 
neuen Zeichen auf dem Drucker 
zur Verfügung (der natürlich nicht 
ausgeschaltet werden darf). 

Die Umschaltung erfolgt dann 
druckerspezifisch (z.B. „ESC 
CHR$(39)“ zur Aktivierung des al- 
ternativen Zeichensatzes beim 
Imagewriter). 


Beschreibung 

Das ca. 50 Seiten umfassende, ge- 
druckte Handuch (Ringbuch) ent- 
hält im wesentlichen alle Hinweise, 
die beim Gebrauch des DMP- 
Charger unter den verschiedenen 
Sprachen und Anwenderprogram- 
men von Interesse sind. (Ap- 
pleworks kann durch einen zu 
wählenden Patch derart angepaßt 
werden, daß die Unterstreichung 
das Umschalten auf den eigenen 
Zeichensatz bewirkt.) Mit etwas 
Experimentierfreude — die Voraus- 
setzung jeder dauerhaft erfolgrei- 
chen Arbeit mit Druckern - bereitet 
die Einarbeitung keine Schwierig- 
keiten. 


Fazit 

Der nicht gerade geringe Preis von 
DM 198,- läßt erkennen, daß der 
DMP-Charger vorwiegend für den 
kommerziellen Bereich konzipiert 
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wurde. In diesem Sinne ist seine 
Handhabung durchaus gerechtfer- 
tigt. Für den ausgesprochenen 
Selbsprogrammierer dürfte der 
„Stand-alone“-Charakter des Pro- 
gramms mit leichten Abstrichen an 
seine Verwendbarkeit verbunden 
sein. Wünschenswert wäre hier die 
Möglichkeit der Einbindung in 
Turnkey-Systeme und die Übertra- 
gung der Zeichensatz-Files in an- 
dere Betriebssysteme. 


Apple Illie Assembler-Kurs 


getestet von Dr. Jürgen B. Kehrel 


Wer den richtigen Zugang zu 
6502-Assembler findet, für den ist 
die Maschinensprache schon bald 
ken Buch mit sieben Siegeln 
mehr, schon gar nicht ein zu fürch- 
tendes Zahlenungeheuer. Mit dem 
Assembler-Kurs (1984, 240 S,., 
Sybex-Verlag, mit Diskette DM 
64,-) wird jetzt ein Lehrgang vor- 
gelegt, der den direkten Einstieg 





wagt. Damit bietet es eine Alterna- 
tive zum Buch „Apple Maschinen- 
sprache“ (Te-Wi Verlag), das auf- 
bauend auf Basic-Kenntnissen in 
die Tiefen des Apple vordringt. 

Da der Apple mit dem Mini-As- 
sembler als Teil des Integer-Basic 
nur sehr bescheidene Möglichkei- 
ten bietet, gehört zum Buch ein 
„richtiger“ Assembler, der symbo- 
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lische Bezeichnungen (Labels) für 
Sprungstellen erlaubt, Makros zu- 
läßt und im Dezimalformat disas- 
sembliert. Laden und Speichern 
sind ebenso möglich wie ein Ver- 
schieben des Codes. 

Was mich etwas gestört hat ist, daß 
Labels mit „Label Adresse“ festen 
Speicherplätzen zugeordnet wer- 
den, während alle anderen mir be- 
kannten Assembler „Label EQU 
Adresse“ benutzen. Lokale Labels 
werden mit „*Label Opcode 
Adresse“ definiert. Demgegen- 
über benutzen alle anderen den 
Stern als Kennzeichen für eine 
Kommentarzeile. Das erschwert 
unnötig den späteren Übergang 
auf große Assembler. 

Ein einmal eingegebenes Pro- 
gramm kann mit seinen Labels 
nicht mehr ausgelistet werden, und 
auch der Editierkomfort ist minimal. 
Der in Applesoft geschriebene As- 
sembler läßt nur 20 Labels, 20 
symbolische Sprungadressen und 
10 Makros zu, was allenfalls für 
kleinere Vorhaben reicht. Der vom 
Programm und seinen Variablen 
belegte Speicherplatz ist nicht ge- 
schützt. Wenn Sie also z.B. mit 
einer Startadresse von $0800 as- 
semblieren, überschreibt sich der 
Assembler selbst. Sie sollten also 
(für so wenig Geld) keinen ausge- 
wachsenen Assembler wie Merlin 
oder Lisa erwarten, aber für den 
Einstieg ist das Programm durch- 
aus ausreichend. 

Das Buch ist, wie eigentlich immer 
bei Sybex, typografisch sauber 
hergestellt und fast fehlerfrei. Nur 
auf S. 49 muß es „Null-Flag Z" 
statt „Übertrags-Flag C“ heißen, 
CHKCOM (S. 223) prüft auf Kom- 


ma, nicht auf „<“ , und in der 
Aufstellung auf S. 206 fehlt der 
Befehl BCS unter BCC. 

Inhaltlich sollte für eine straffere 
Ordnung gesorgt werden. Die vor- 
liegende 1. Auflage hat unmotivier- 
te Vorgriffe (NOP wird auf S. 62/63 
benutzt, aber erst auf S. 70 einge- 
führt, ebenso ergeht es CLC und 
CLD), unnötige Wiederholungen 
(STA wird auf S. 10 und S. 12 mit 
geringer Variation erklärt) und un- 
gerechtfertigte Kapiteleinteilungen 
(Kapitel 8 behandelt so grundver- 
schiedene Dinge wie Interrupts, 
Breaks, Vorzeichen und Fließkom- 
mazahlen). 

Der Leser sollte Basic kennen, He- 
xadezimalzahlen brauchen ihm 
aber nicht geläufig zu sein. Ein 
Trainingsprogrammm für das Ein- 
üben der wichtigsten Zahlenum- 
wandlungen wird auf der Diskette 
mitgeliefert. Für die fortgeschritte- 
nere Programmierung sind in ei- 
nem Anhang einige Einsprungstel- 
len in den Applesoftinterpreter und 
den Monitor aufgeführt, allerdings 
oft mit spartanischen Angaben. 
„HPLOT F453: ruft HPOSN auf 
und zeichnet einen Punkt“ oder 
„COPY DAB7: String zeitweise 
freisetzen“ dürften nur erfahrenen 
Programmierern genügend Infor- 
mation geben. 

Trotz der beschriebenen Mängel 
ist die Einheit aus Buch und As- 
sembler, die Lernen durch prakti- 
sches Nachvollziehen am Gerät 
ermöglicht, ein erfolgversprechen- 
der Weg zu einer für den Anfänger 
nicht ganz einfachen Sprache, die 
aber für viele Anwendungen (z.B. 
schnelle Steuerungen, bewegte 
Grafiken) unerläßlich ist. 


Deutsche Sprachausgabe 
für den Apple getestet von Harald Grumser 


Die Ausgabe erfolgt beim Rechner 
i. allg. auf Bildschirm oder Drucker. 
In interaktiven Programmen kön- 
nen Anweisungen an den Benut- 
zer oft nicht auf dem Bildschirm 
ausgegeben werden. Auch ist der 
Vergleich von Zahlenkolonnen 
oder Texten zwischen Papier und 
Bildschirm eine unangenehme Tä- 
tigkeit. Hier kann eine akustische 
Ausgabe nützlich sein, wie sie von 
der Firma Marco Bönig angeboten 
wird. Der Apple wird mit dieser 
kleinen Sprachkarte, die vorzugs- 
weise in Slot 4 steckt, in die Lage 
versetzt, deutsche Texte zu spre- 
chen. 
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Mit Hilfe der mitgelieferten Pro- 
gramme können deutsche Texte 
direkt zur Ausgabe gebracht wer- 
den, wodurch sich mit minimalem 
Aufwand eigene Vorleseprogram- 
me schreiben lassen. Die Umset- 
zung in die einzelnen Phone er- 
folgt automatisch, so daß ein String 
mit deutschen Wörtern an das 
Sprachprogramm übergeben wer- 
den kann, ohne daß man sich über 
die Lautschrift Gedanken zu ma- 
chen braucht. Die Wörter sind er- 
staunlicherweise recht gut ver- 
ständlich. Darüber hinaus erkennt 
das Programm einzelne Buchsta- 
ben und spricht diese wie im Al- 


phabet (Y = ypsilon). Auch einzel- 
ne Zeichen und Zahlen werden er- 
kannt und durch die entsprechen- 
den Wörter ersetzt («x = mal, 3 = 
drei). 

Wer auf eine höhere Sprachqualität 
Wert legt, kann die Lautfolgen auch 
phonetisch umschreiben. Dieses 
Verfahren bietet sich an, wenn ge- 
sprochene Befehle in eigene Pro- 
gramme aufgenommen werden 
sollen und sich der größere Auf- 
wand für die Erstellung lohnt. 


Bönig Sprachausgabe 


Durch Verwendung dieser „Laut- 
schrift“ — das Programm kennt 24 
Phone mit jeweils 10 Tonhöhen, 10 
Sprechgeschwindigkeiten und 10 
Lautstärken — ist es auch möglich, 
z.B. englische Wörter auszugeben 
oder die Intonation derart zu ge- 
stalten, daß Fragesätze an der Be- 
tonung erkannt werden (heben der 
Stimme am Satzende). Auch wird 
die Betonung einzelner Vokale un- 
terstützt, ohne alle Sprechparame- 
ter angeben zu müssen. Mit etwas 
Übung (und Mut zur Technik) kann 
so der Apple jeden feierlichen An- 
laß mit einem Gedicht verschö- 
nern. 


Als Manko erscheint auf den er- 
sten Blick der geringe Umfang an 
Lauten. Die Praxis zeigt jedoch, 
daß fast alle Wörter bei entspre- 
chender Umschreibung verständ- 
lich werden. Bei Umsetzung von 
Schriftdeutsch in gesprochenes 
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Deutsch treten mitunter recht lan- 
ge Sprechpausen auf, so daß für 
längere Sätze die Lautschrift her- 
angezogen werden sollte. Einen 
Anhaltspunkt für diese Schreibwei- 
se liefert die Möglichkeit, Strings 
nach ihrer Eingabe im „phoneti- 
schen Alphabet” auszugeben. Et- 
was ärgerlich erscheint die Tatsa- 
che, daß die Ausgabe nicht durch 
Reset abzubrechen ist; man muß 
den Computer also stets ausreden 
lassen. (Dieses „Hängen“ nach 





Reset kann durch POKE 49254 + 
SLOT x 16, 255 unterbrochen 
werden.) 


Anmerkung zur Lautschrift: Die In- 
ternationale Lautschrift (Alphabet 
der API) weist 57 Phone aus. Da- 
von treten ca. 10 Laute nicht in 
deutschen Wörtern auf. Der Phon- 
Schatz eines Sprachprozessors ist 
nicht identisch mit diesen Lauten 
(der hier verwendete kennt 64 
Laute). 


Fazit: Die Sprachqualität dieser 
Karte überrascht durch ihren deut- 
schen Akzent. Die mitgelieferte 
Software ermöglicht einen pro- 
blemlosen Einbau in eigene Pro- 
gramme, wobei die Umsetzung 
von geschriebenem Wort in ge- 
sprochenen Laut geglückt ist. 

Mit einem Preis von DM 244,- tritt 
sie nicht nur qualitativ in Konkur- 
renz zu teureren Sprachkarten. 


Lerne zu pieken 


ohne zu quieken! 
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Kurzberichte 


(Gekürzte Firmenmitteilungen) 


512K für Apple Ill 

Ab sofort können alle Apple-Ill-Anwen- 
der ihren Rechner auf die maximale Ka- 
pazität von 512K aufrüsten. Bei beste- 
henden 256K-Rechnern wird das vor- 
handene Erweiterungsboard einfach 
gegen die neue Karte ausgetauscht, oh- 
ne daß ein Slot benötigt wird. Die Mon- 
tage ist so einfach, daß dafür kein Händ- 
ler hinzugezogen werden muß. Ledig- 
lich bei bestehenden 128K-Rechnern 
muß der Einbau von einem Apple- 
Händler durchgeführt werden. Alle 
SOS-Programme mit dynamischem 
Speicherzugriff (Applewriter Version 1.0 
also nicht) nutzen den neuen Speicher- 
platz vollständig. Die Speichererweite- 
rung ist zu einem Preis von ca. DM 
3200,- bei Dipro-Software erhältlich. 
Quelle: Dipro-Software, Pulheim 


Apple lle-Emulation für Apple Ill 

Mit einer neuen Interfacekarte für den 
Apple Ill ist es möglich, Apple-Ile-Pro- 
gramme mit einem Speicherbedarf von 
64K und mehr auf dem Apple Ill zu 
betreiben. Die Karte ist mit der Langu- 
age-Card software-kompatibel und ent- 
hält gleichzeitig einen Game-Port zum 
Anschluß von Joysticks oder Paddles. 
Versionen mit 16, 64 oder 128K sind 
lieferbar. Damit stehen im Emulation- 
Mode maximal 176K über Bank-Swit- 
ching zur Verfügung. Ebenfalls kann 
das ProDOS-Betriebssystem gefahren 
werden. 

Quelle: Dipro-Software, Pulheim 


Lisa/Mac-Screenswitcher 

Apple stellt die Produktion des Macin- 
tosh XL (Lisa) im Herbst 85 ein. Den 
Lisa-Besitzern wird empfohlen, ab so- 
fort die Macintosh-Emulation „Mac- 
works“ als Betriebssystem zu benut- 
zen. Das Problem dabei ist, daß Lisa 
rechteckige Bildschirmpunkte verwen- 
det, Macintosh dagegen quadratische. 
Die auftretende vertikale Verzerrung 
des Bildschirms im „Macworks“-Modus 
wird durch den Lisa/Mac-Screenswit- 
cher verhindert. Durch einfaches Um- 
schalten wechselt das Bildschirmformat 
von Lisa auf Macintosh. Sowohl die Li- 
sa- als auch die Macintosh-Software 
kann weiterhin problemlos benutzt wer- 
den. Der Lisa/Mac-Screenswitcher ist 
so konzipiert, daß keine äußerlichen 
Veränderungen an der Lisa nötig sind. 
Quelle: Pythia GmbH, München 


640K-Drive für Ic 

Viele Anwendungen im kommerziellen 
Bereich lassen sich mit einem Apple IIc 
gut abwickeln. Mit dem Essen kommt 
jedoch der Appetit — und die Erkenntnis, 
daß sich mit dem eingebauten 140K- 
Drive der Apple Ilc nicht seiner Lei- 
stungsfähigkeit entsprechend einsetzen 
läßt. Nun ist es endlich möglich, in Ver- 
bindung mit dem Apple Iic größere 
Laufwerke zu verwenden. Es stehen 
dem Anwender zusätzlich 640K (neben 
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dem eingebauten Laufwerk) zur Verfü- 
gung, 640K deshalb, weil das zusätzli- 
che Drive zwei Schreib/Leseköpfe be- 
sitzt und so zwei Diskettenseiten lesen 
bzw. schreiben kann. Leider können 
diese beiden Diskettenseiten nicht oh- 
ne weiteres als ein einziges Volume 
verwaltet werden. Das resultiert aus den 
fehlenden Signalleitungen im Apple-IlIc- 
Stecker, die zur Umschaltung benötigt 
werden. Um trotzdem die Rückseite der 
Diskette nutzen zu können, wurde eine 
Schaltung entworfen, welche zwischen 
Hauptplatine und CPU eingesetzt wird. 
Außerdem läßt sich das Laufwerk auch 
auf 40 bzw. 35 Spuren umschalten, um 
es als „normales“ Drive zu benutzen 
(nur das 5.25-Zoll-Drive). Ein menüge- 
steuertes Installationsprogramm er- 
möglicht auf einfachste Weise das Mo- 
difizieren der drei häufigsten Betriebs- 
systeme (DOS 3.3, ProDOS und 
UCSD-Pascal), um die Zusammenar- 
beit dieser bis jetzt ungewöhnlichen 
Laufwerkskombination zu gewährlei- 
sten. Eine Anpassung für die CP/M- 
Erweiterung ist in Vorbereitung. Gelie- 
fert werden ein Teac FD 55F (5,25 Zoll) 
bzw. ein Teac FD 35F (3,5 Zoll) im 
Gehäuse inkl. Anschlußkabel, Zusatz- 
platine und einer „Patchdiskette“, wo- 
mit die Betriebssysteme DOS 3.3, 
UCSD-Pascal und ProDOS angepaßt 
werden müssen. 

Quelle: ccp Datentechnik, Hamburg 


Apple-Paketpreise 

Preisgünstige Mikrocomputer-Pakete, 
die sich ohne zusätzliche Zubehörkäufe 
sofort kommerziell einsetzen lassen, 
bietet die Apple Computer GmbH. Ab 
dem 1. Juli 1985 haben die rund 300 
Apple-Fachhändler sechs Systemkonfi- 
gurationen im Programm, die ein- 
schließlich professioneller Software im 
Preis etwa 15% günstiger sind. Das Ap- 
ple IIc „Profi-Paket“ kostet 5990,- DM 
und umfaßt das Apple-Ilc-System, den 
Apple-Iic-Monitor, den Apple-Ilc-Moni- 
torstand und ein externes Laufwerk. Als 
Software ist das integrierte Programm 
„Appleworks“ mitverpackt, das Tabel- 
lenkalkulation, Textverarbeitung und 
Datenbank umfaßt. Das Apple Ile „Pro- 
fi-Paket 128K“ kostet 6990,- DM und 
umfaßt den Apple Ile 128K mit 80-Zei- 
chendarstellung, einen Apple-Ile-Moni- 
tor und das Apple-Duodisk-Laufwerk. 
Als Software ist das derzeit meistver- 
kaufte integrierte Software-Programm in 
den USA, „Appleworks“, mitverpackt. 
Quelle: Apple-Händler 


Apple-Geschichte 

Apple USA 

1977: Steven P. Jobs (21) und Stephan 
G. Wozniak (26) gründen die Firma Ap- 
ple Computers Inc. Auf der West- 
Coast-Computermesse in San Francis- 
co wird der Apple Il vorgestellt. 

1980: Apple baut in Cork/Irland eine 
Fabrikation für den Apple Il. Von hier 


aus wird der europäische Markt belie- 
fert. Eine weitere Fabrik wird in diesem 
Jahr in Dallas/Texas in Betrieb ge- 
nommen. 

1981: Apple eröffnet in München das 
deutsche Tochterunternehmen. Zehn 
Mitarbeiter zählt Apple Deutschland bei 
seiner Gründung. Weitere Apple-Töch- 
ter gibt es in Großbritannien, Frankreich 
und Italien. Die europäischen Aktivitä- 
ten werden vom Pariser Vorort Neuilly 
aus koordiniert. Die Apple-Produktion in 
Singapur wird aufgenommen. 

1982: Apple gelingt der Eintritt in den 
Club der 500 führenden Unternehmen 
der USA. 

1983: Der 1.000.000ste Apple verläßt 
das Werk in Dallas. Im Juni tritt John 
Sculley (45) seinen Posten als Präsi- 
dent von Apple an. Der erfahrene Mar- 
ketingprofi Sculley kommt aus dem 
Pepsi-Cola-Management. Steven P. 
Jobs übernimmt in der Firmenleitung 
den Aufsichtsratsvorsitz. Apple stellt als 
neue Produkte die Lisa (später umbe- 
nannt in Macintosh XL) und den Apple 
III vor. Tochterfirmen in Japan und Aus- 
tralien werden gegründet. 

1984: Apple erreicht im Geschäftsjahr 
1983/84 einen Umsatz von über 1,5 
Mrd. US-Dollar (etwa 4,6 Mrd. DM). Ap- 
ple stellt im Januar den Macintosh vor, 
der in weniger als 100 Tagen zum dfrit- 
ten Meilenstein der Personal-Compu- 
ter-Geschichte wird. Der Apple Ilc wird 
in San Francisco 4.500 Journalisten, 
Händlern und Mitarbeitern vorgestellt. 
Die Präsentation wird via Satellit in an- 
dere Apple-Niederlassungen übertra- 
gen. 4.750 Beschäftigte arbeiten welt- 
weit für Apple. Monatlich verlassen 
120.000 Apple-Computer die Produk- 
tionsstätten. 

Insgesamt werden im Geschäftsjahr 
1983/84 1,2 Mio. Apple-Systeme ver- 
kauft. 

1985: Im Januar kündigen Apple und 
Linotype in Frankfurt die Zusammenar- 
beit mit dem Ziel an, daß im Macintosh 
eingegebene Texte und Grafiken auf 
dem Laserbelichter von Linotype in eine 
Druckvorlage umgesetzt werden kön- 
nen. Die technischen Voraussetzungen 
dazu sollen in der zweiten Jahreshälfte 
1985 verfügbar sein. Damit bekommt 
der Macintosh von Apple bald eine zu- 
sätzliche Aufgabe im modernen Büro. 
Apple Deutschland 

1981: Die deutsche Apple-Tochter in 
München nimmt mit zehn Mitarbeitern 
die Arbeit auf. Es ist die dritte europäi- 
sche Niederlassung des amerikani- 
schen Unternehmens. 

1984: Ralph M. Deja (42) übernimmt 
den Posten als deutscher Geschäfts- 
führer von Apple. Die mittlerweile 90 
Mitarbeiter beziehen die neue Münche- 
ner Apple-Zentrale an der Ingolstädter 
Straße. Fünf regionale Niederlassungen 
in Hamburg, Düsseldorf, Frankfurt, 
Stuttgart und München haben die Auf- 
gabe, das Händlernetz zu betreuen. 
Über 300 Fachhändler vertreiben Ap- 
ple-Computer in Deutschland. 

1985: Stephan G. Wozniak verläßt Ap- 
ple, Steven P. Jobs tritt vom Macintosh- 


Vorsitz zurück, Aufhebung der Firmen- 
spaltung Macintosh-Apple Il, weltweite 
Personalreduzierung um über 20%, in 
den USA um über 1500 Mitarbeiter, in 
Deutschland auf 56 Mitarbeiter, Ein- 
schränkung der regionalen Niederlas- 
sungen, Beginn der Reorganisation und 
Konsolidierung. 

Quelle (außer dem letzten Absatz): Ap- 
ple Computer GmbH, München 





Das Mactablet ist ein Digitalisiergerät, 
speziell entwickelt für den Macintosh. 
Das Mactablet hat eine aktive Fläche 
von 152 x 228 mm. Durch die neuartige 
elektromagnetische Technik ist es mög- 
lich, eine Auflösung von bis zu 20 Li- 
nien/mm zu erreichen. Die maximale 
Vorlagenstärke kann bis zu 12 mm be- 
tragen. Geliefert wird das Mactablet mit 
einer Stromversorgung, Abtaststift, 
deutscher Bedienungsanleitung und ei- 
ner Installationssoftware-Diskette. Die 
mitgelieferte Software ermöglicht es, 
das Mactablet für jede Macintosh-Soft- 
ware als „Desk Accessory“ zu installie- 
ren. Das Datenkabel des Mactablet wird 
in den Printer- oder Modem-Port des 
Apple Macintosh eingesteckt. Daraus 
ergibt sich die Möglichkeit, Maus und 
Mactablet je nach Anwendung zu be- 
nutzen. Das flache Kunststoffgehäuse 
ist mit einer Schrägstellvorrichtung ver- 
sehen. Als Abtastvorrichtung kann au- 
Ber dem Stift auch ein Cursor verwen- 
det werden, der ein präzises Übertra- 
gen von technischen Unterlagen er- 
leichtert. Für freies Zeichnen, z.B. in 
Verbindung mit Macpaint, ist der Stift 
das ideale Werkzeug. Mit dem Macta- 
blet von Summagraphics kann man 
endlich alle grafischen Möglichkeiten 
des Macintosh nutzen. 

Quelle: Summagraphics, München 


Macpack 

Macpack ist ein neues Programm im 
Macintosh-Design zur schnellen und 
komfortablen Abwicklung des Paketver- 
sands mit dem United Parcel Service für 
Unternehmen mit mittlerem bis großem 
Paketvolumen. Durch die Wahl des 
Macintosh ist das Programm besonders 
leicht zu erlernen und zu bedienen. Der 
geringe Platzbedarf des kompletten 
Rechnersystems erlaubt den Einsatz 
auch unter räumlich beengten Bedin- 
gungen. Das robuste Gerät ist ideal für 
den Einsatz im Lager geeignet. 

Quelle: Format Software GmbH, Köln 


Incircuit-Emulator 

Die Incircuit-Emulatorkarte EMU macht 
aus einem Apple Il Plus oder kompati- 
blen Rechner ein preisgünstiges Hard- 
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ware- und Software-Entwicklungssy- 
stem für die 6502-CPU. In Verbindung 
mit einem guten Assembler und Debug- 
ger lassen sich selbst größere Hard- 
ware-Entwicklungen durchführen, wenn 
kleine Einschränkungen in Kauf genom- 
men werden (ein Lade- und ein Spei- 
cherbefehl bei Überschreiten einer 2K- 
Seite). Der geübte 6502-Assemblerpro- 
grammierer wird nach kurzer Zeit mit 
dem Emulator zurechtkommen. 

Prinzip: 

Durch Ersetzen der CPU im Zielsystem 
durch den 40-poligen DIL-Stecker des 
Emulators wird das Zielsystem mit dem 
Apple verbunden. In das Zeigerregister 
wird derjenige 2K-Bereich des Zielsy- 
stems eingeschrieben, der angespro- 
chen werden soll. Durch das „2K-Fen- 
ster“ des Apple ($C800-$CFFF) ist das 
Zielsystem ansprechbar. Es kann mit 
Interrupts gearbeitet werden, wenn im 
Apple in die Adressen $03FE das Low- 
Byte und in $O3FF das High-Byte der 
Adresse der Interruptroutine geschrie- 
ben ist. Das auszuführende Programm 
wird im Apple abgelegt (z.B. ab $0803). 
Quelle: Gerhard Brecht, Stuttgart 





MK II 


Erno Unibox 

Kompaktes Disketten-Aufbewahrungs- 
und Archivsystem mit direktem Zugriff 
auf bis zu 80 Disketten im 5.25-Zoll- 
Format; 8 weit aufklappbare, staubge- 
schützte Abteile; im aufgeklappten Zu- 
stand kein größerer Raumbedarf erfor- 
derlich; komplett mit Archivierungseti- 
ketten; hochwertiger Kunststoff mit An- 
ti-Statik-Behandlung; Sockelfarbe com- 
puterbeige; Abteilfarbe in braun-rauch- 
glas als Lichtschutz; Kompaktmaße: L 
257xB 173xH 143 mm. 

Quelle: Erno-Photo GmbH, Albbruck 
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Apple-Kompatibler MK Il 
Kurzbeschreibung in Stichworten: 

— Apple-kompatibler Rechner mit BA- 
SIC im ROM. 

— 8 Erweiterungssteckplätze. Steckplatz 
6 enthält den Floppy-Controller. 

— 2 Disketten-Laufwerke sind einge- 
baut. Gegen Aufpreis Controller + Dis- 
kettenstationen 640K möglich. 

— Formschönes 19“-Gehäuse beige/ 
braun. 

— Abgesetzte Preh-Tastatur AK87 mit 
Zehner-Block; gleiche Gehäusefarbe. 
— Auf der Rückseite des Rechnergehäu- 
ses sind Ausbrüche für Steckverbin- 
dungen vorgesehen, 2 geschaltete 
Schukosteckdosen für den Anschluß 
von Monitor und Drucker sind bereits 
eingebaut. 

— Drucker-Interface in Steckplatz 1 (gra- 
fikfähig). 

— 16K-Karte. 

— Prozessor-Karte mit Z80 gegen Auf- 
preis (Original Microsoft-Karte mit CP/ 
M-Betriebssystem, MBasic usw.). 

— 80-Zeichen-Bildschirmdarstellung mit 
Software-Umschaltung auf Grafik und 
40 Zeichen. Zwei programmierbare Hel- 
ligkeiten (Hilite/Lolite), deutscher Zei- 
chensatz, Block- und Linien-Grafik. 

— Monitor mit 22 MHz Bandbreite, bern- 
stein. 

Quelle: Ewald Balfer, Krombach 





Unibox 


20M-Festplatte für Mac 

Ab Herbst dieses Jahres wird der Mac- 
intosh 512K mit einer externen 20M- 
Festplatte geliefert. Wie die Apple Com- 
puter Inc. ankündigt, erweitert die neue 
Macintosh-Konfiguration das modular 
aufgebaute „Macintosh Office“ nach 
oben. Die neue Festplatte ist für den 
Macintosh als individueller Arbeitsplatz 
entwickelt worden und kann 50mal 
mehr Daten speichern als eine 400K- 
Floppy-Disk. Die externe 20M-Festplat- 
te ergänzt den auf der Hannover-Messe 
in diesem Jahr angekündigten File-Ser- 
ver, der innerhalb des neuen Apple- 
Netzwerks „Appletalk“ ein Hauptele- 
ment für den Multiuser-Betrieb des 
„Macintosh Office“ ist. 

Quelle: Apple Computer GmbH, Mün- 
chen 


Appletalk für Macintosh 

Appletalk heißt das neue Netzwerk von 
Apple, das Computer und Peripherie zu 
einem elektronischen Büro zusammen- 
fügt. Über Appletalk können bis zu 32 
Macintosh-Benutzer untereinander 
kommunizieren. Mit Appletalk können 
sie auch mit Anwendern anderer Perso- 
nalcomputer und mit der Groß-EDV 
kommunizieren. Appletalk ist ein kom- 
plexes, steckfertiges Netzwerk, das die 
Teamarbeit in Büros unterstützt. Es ko- 
stet rund 200,- DM pro Verbindung. 
Technische Stichworte 

Elemente: Anschlußkabel mit An- 
schlußbox, 2m Verbindungskabel, End- 
loskabel für lose Verlegung; 
Anschlußkapazität: bis zu 32 Geräte; 
Entfernung: bis zu 300m; 
Übertragungskapazität: 230 Kilobits/s; 
Standard: Offener Allzweck-Standard 
(ISO), alle Ebenen dokumentiert; 
Kompatibilität: Gateways zu SNA und 
Ethernet. 

Quelle: Apple Computer GmbH, Mün- 
chen 


Apple-Schul-Programm AULA 

Ein weiteres Sonderprogramm hat die 
Apple Computer GmbH, München, für 
den Ausbildungsbereich eingeführt, um 
die starke Position in diesem Sektor 
auszubauen. Das neue AULA-Pro- 
gramm richtet sich an die Sekundarstu- 
fen I und Il aller Öffentlichen und staat- 
lich anerkannten Schulen. In Koopera- 
tion mit seinen autorisierten Fachhänd- 
lern bietet Apple den jeweiligen Schul- 
trägern bestimmte System-Pakete ab 
einer Mindestabnahnmemenge von 5 
bzw. 9 Konfigurationen zu Sonderprei- 
sen. Das AULA-Programm umfaßt die 
Apple-Il-Familie sowie den Macintosh 
128K. In Verbindung mit einer Hard- 
ware-Bestellung kann Apple-Schul- 
Software zu Sonderpreisen geliefert 
werden. 

Quelle: Apple Computer GmbH, Mün- 
chen 


Laserwriter von Apple 

Laserwriter heißt das neue Flaggschiff 
unter den Apple-Peripherie-Geräten, 
das sich mit seinen multifunktionalen 
Leistungsmerkmalen deutlich aus der 
allgemeinen Druckerwelt hervorhebt. 
Eingebaute Zeichensätze geben dem 
Anwender den Vorteil, Zeichen und 


kurZbERICHTE 44 


Grafik in Laser-Auflösung zu erhalten 
und zu mischen. Die Qualität kommt der 
von Satzmaschinen nahe und ergibt 
sich aus der ungewöhnlich hohen Auf- 
lösung von 300 gegenüber 70 dpi bei 
„Normaldruckern“. (Vergleiche hierzu 
Peeker, 7/85, S. 61: Lichtsatzanlagen 
haben über 1000 dpi.) 

Verschiedene Schrifttypen bieten die 
uneingeschränkte Möglichkeit, Formu- 
lare, Berichte, Geschäftsgrafiken und 
sogar Präsentationsfolien selbst zu er- 
stellen. 

Erreicht werden diese vielfältigen Lei- 
stungsmerkmale durch einen eingebau- 
ten Mikrocomputer mit 68000-Prozes- 
sor, 1,5M RAM und 0,5M ROM. Natür- 
lich ist sämtliche Apple-Macintosh-Soft- 
ware kompatibel mit dem Laserwriter, 
so daß z.B. professionelle Software-Pa- 
kete wie Jazz von Lotus oder die Soft- 
ware-Serien von Microsoft genutzt wer- 
den können. Preis ca. DM 27.500,-. 
Quelle: Apple Computer GmbH, Mün- 
chen 


Design-Preise für Apple lic 

Gekrönt wurde der Markterfolg des Ap- 
ple IIc jetzt durch die zweifache Design- 
Auszeichnung „if Die gute Industrie- 
form“ für den Scribe-Drucker und für 
den Apple-Ilc-Monitor von einer inter- 
nationalen Jury anläßlich der diesjähri- 
gen Hannover-Messe 1985. Den be- 
achtlichen Erfolg verdankt der Apple Ilc 
seiner professionellen Einsatzmöglich- 
keit im „Persönlichen Computern“ so- 
wohl bei kommerziellen Anwendungen 
als auch in der Schule und zu Hause. 
Quelle: Apple Computer GmbH, Mün- 
chen 





Spooler 


Spooler für Epson-Drucker 

Einen Hardware-Spooler speziell für 
den Einbau in Epson-Drucker der Se- 
rien RX, MX und FX stellt die Firma 
Leunig vor. Er ist lieferbar in zwei Ver- 
sionen: mit serieller oder mit paralleler 
Rechnerschnittstelle. Die Speicherka- 
pazität ist in Stufen aufrüstbar bis 64K 
und wird durch interne Datenkompres- 
sion im Mittel um etwa 50% vergrößert. 
Die Steuerung der Spooler-Funktion 
übernimmt ein eigener Spezialprozes- 
sor, der den Bauteileaufwand und 
Stromverbrauch auf ein Minimum redu- 
ziert. Die Übernahmegeschwindigkeit 
vom Rechner beträgt 1600 Zeichen/s 
Der Einbau dauert etwa 5 Minuten. Die 
umgerüsteten Epson-Drucker bleiben 
völlig hard- und software-kompatibel. 
Quelle:Leunig GmbH, Neunkirchen 


Transfer Il Terminalprogramm 

Die Firma Gerhardt und van Mergern 
liefert ein neues Terminalprogramm und 
V24-Verbindung vom Game-Port zum 


65 








Akustikkoppler für Apple Il Plus/lle und 
Kompatible. Charakteristik in Stich- 
worten: 

Terminal-Mode: Drei verschiedene Zei- 
chendarstellungen auf dem Bildschirm 
mit jeweils deutschem oder englischem 
Zeichensatz, 40 Zeichen/Zeile, Apple- 
Schriftsatz, 70 Z/Z, 70-130 Z/Z Propor- 
tionalschrift. 

Transfer-Mode: Up/Download beliebi- 
ger DOS-Files zwischen zwei Apple-II/ 
Transfer-Il-Besitzern. 
Text-Editor-Mode: Screeneditor mit 40 
Z/Z und Fenstertechnik, verschiedene 
Move-Befehle, wie z.B. Seitenblättern, 
Textanfang/-ende, gelöschte Zeichen 
versetzen, Suchkommandos. 
Print-Mode: Ausdrucken des Editorfiles, 
paralleler Ausdruck der Kommunikation, 
Parameter einstellen. 


DOS-Befehle: Catalog, Diskette Iö- 
schen, Diskette initialisieren, Drive 
wechseln. 


Quelle: Jochen Gerhardt und Bettina 
van Mergern GbR, Düsseldorf 





Druckertisch 

Über die Firma Dahlhoff ist ein neuer 
Druckertisch erhältlich. Charakteristika: 
Maße: 74x 55x 75 cm (HBT) - Schall- 
dämmung um 6db oder 50% — Ausfüh- 
rung: elfenbein mit Glasdeckel — fahr- 
bar, damit er überall einsetzbar ist — 
separate Steckerzufuhr, damit sich kein 
Kabel mehr verknotet — zwei Ablagebö- 
den — separate Papierzu- und -abfuhr — 
Preis ca. DM 300,-. 

Quelle: Jürgen Dahlhoff, Soest 


Notstromaggregat 

Das TCS SL-10 ist ein Notstromaggre- 
gat, daß sich bei Netzausfall selbständig 
zwischen Netz und Computer schaltet, 
bevor der Rechner abstürzen kann und 
Daten verloren gehen. Ein Akku im In- 
neren des Gerätes erlaubt es — bei 200 
Watt Abgabeleistung — bis zu zwei 
Stunden netzunabhängig und lautlos zu 
arbeiten, so daß genügend Zeit besteht, 
alle ungesicherten Daten zu speichern. 
Ist die Netzspannung wieder herge- 
stellt, schaltet das SL-10 automatisch 
auf Netzversorgung um und erneuert 
die Leistungsreserven des integrierten 
Akkumulators. Eine ständige Ausgangs- 
spannung von 220 V/50 Hz ist somit 
garantiert. Preis ca. DM 2300,-. 

Quelle: TCS Computer GmbH, St. Au- 
gustin 2 
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Leserbriefe 


Wie Apfel-Tasten programmieren? 
Ich bitte Sie, mir bei der Programmie- 
rung der „Apple“ -Tasten zu helfen. Da 
sie nicht im ASCII-Code enthalten sind, 
weiß ich nicht, wie ich die Tasten an- 
steuern soll (aus einem BASIC-Pro- 
gramm). 

Thomas Effert, Kretz 


Antwort: Dies ist ganz einfach: Wenn 
PEEK (49249) größer als 127 ist, dann 
wurde die linke, und wenn PEEK 
(49250) größer als 127 ist, die rechte 
Apfel-Taste gedrückt. Beispiel: 
10 IF PEEK (49249) > 127 

THEN PRINT “LINKS“ 
20 IF PEEK (49250) > 127 

THEN PRINT "RECHTS" 
30 GOTO 10 
us 


80-Zeichenkarte ohne Double-Hires 
Im Oktober 1984 bestellte ich bei der 
Firma Prosoft in Koblenz einen Appe Ile 
mit Monitor, zwei Laufwerken und einer 
Apple-80-Zeichenkarte. Nach erfreulich 
kurzer Zeit erfolgte die Lieferung. 

Beim Auspacken bemerkte ich, daß die 
80-Zeichenkarte nicht, wie die anderen 
Artikel, in einem Apple-Karton verpackt 
war. Als blutiger Neuling dachte ich mir 
jedoch nichts dabei. Die Erleuchtung, 
daß ich wohl nicht die Apple-Karte, wie 
auf dem Lieferschein angegeben, erhal- 
ten hatte, kam mir erst, als ich Peeker 
Nr. 1/84 in Händen hielt und die Experi- 
mente zur Double-Lores ausprobierte, 
welche nicht funktionierten. 

Nach einer telefonischen Rücksprache, 
bei der sich die Firma für den Fehler 
entschuldigte, schickte ich die Nach- 
bau-Karte zusammen mit einem Be- 
gleitschreiben zurück. In diesem 
Schreiben bat ich darum, mir entweder 
die Apple-Karte oder das bereits be- 
zahlte Geld zurückzusenden. Ich warte 
noch immer... 

Zu guter Letzt noch einige Anmerkun- 
gen zu Peeker. Sehr gut gefallen hat mir 
im letzten Heft (7/85) der Assem- 
blerkurs. Da hatte man endlich einmal 
das Wichtigste auf wenigen Seiten zu- 
sammengefaßt. Aufgrund meiner Erfah- 
rungen würde mich ein Test verschie- 
dener 80-Zeichenkarten im Hinblick auf 
Kompatibilität interessieren. Als Test 
eignet sich hierzu ja die Double-Lores 
bzw. -Hires. 

Albert Birkicht, München 


Wie Double-Hires feststellen? 

Wir bekommen immer wieder Anfragen 
bzw. Anrufe der obigen Art bezüglich 
der Double-Hires in Verbindung mit ver- 
schiedenen 64K-Karten. Mit dem nach- 
folgenden Miniprogramm können Sie 
sofort ermitteln, ob Ihre 64K-Karte dou- 
ble-hires-fähig ist oder nicht: 

10 PR#3: PRINT: HGR 

20 POKE 49246,0 

30 POKE 49237,0: POKE 8192,170 

40 POKE 49236,0: POKE 8192,170 

50 GOTO 30 


Wenn Ihre 64K-Karte in Ordnung ist, 
dann sehen Sie auf dem Bildschirm 
ganz oben links als Grafikzeile 6 Bild- 
punkte nebeneinander, ansonsten nur 3 
Bildpunkte. Die 6 Bildpunkte sind in 2 
„Grüppchen“ zu je 3 Bildpunkten ge- 
trennt (mit einem nicht-sichtbaren Bild- 
punkt dazwischen). Wenn man nicht 
über Double-Hires verfügt, sieht man 
nur 1 „Grüppchen“. Da die auf der 64K- 
Karte befindliche zweite Hälfte des 
Double-Hires-Speichers mit dem HGR- 
Befehl nicht gelöscht wird, sehen Sie 
ggf. zusätzlich ein wirres Grafikmuster. 
Dies ist normal. us 


Lob 

Herzlichen Glückwunsch zu Ihrer rund- 
um gelungenen Zeitschrift. Es dürfte 
wohl keine einzige deutsche Publikation 
geben, die ähnlich gute und reichhaltige 
Informationen und Beiträge über die 
Apple-Il-Serie veröffentlicht. 

Karlheinz Eberhardt, München 


40-Spur-Patch für ProDOS-Filer 

In Ihrer Zeitschrift sind zwar bereits 
mehrere Formatierungsprogramme für 
ProDOS abgedruckt worden. Diese hat- 
ten aber alle eine Länge, die das Abtip- 
pen zur Gedulds- und Nervenprobe 
machten, denn beim Abtippen eines 
längeren Assembler- oder Hexlistings 
schleichen sich immer wieder Fehler 
ein. Es ist deshalb günstiger, die vor- 
handene Software zu patchen. Hier die 
Modifikationen für ProDOS 1.0.1: 
Erstellen einer Arbeitskopie der Pro- 
DOS-Systemdiskette, damit nicht die 
Originalfiles versehentlich zerstört wer- 
den, dann: 

1. BLOAD PRODOS, A$2000, TSYS 

2. CALL-151 

3. 5209:4C 10 F8 (Hiermit wird die 280- 
Blocksperre abgeschaltet) 

4. UNLOCK PRODOS 

5. BSAVE PRODOS, A$2000, 115360, 
TSYS 

6. BLOAD FILER, A$2000, TSYS 

7. In $4244 wird das Low Byte der 
Blockanzahl (Spuren & 8) eingetragen 
(für 40 Spuren 4243:40) 

8. In $4246 wird das High Byte der 
Blockanzahl eingetragen (4246:01 für 
40 Spuren) 

9. In $79F4 wird die Spurzahl eingetra- 
gen (für 40 Spuren: 79F4:28) 
10.BSAVE FILER, A$2000, 125600, 
TSYS 

Im übrigen gefällt mir Ihre Zeitschrift 
recht gut, da Sie genau das bringen, 
was in anderen Zeitschriften meist fehlt: 
hochwertige Tips, die das Arbeiten er- 
leichtern. 

Detlev Rackow, Wunstorf 


Druckfehlerteufel 

Als Leser Ihrer Apple-Computer-Zeit- 
schrift habe ich leider festgestellt, daß in 
der Ausgabe 6/85 der „apple-worm“ 
(siehe Spektrum der Wissenschaft 5/ 
85) Ihnen übel mitgespielt hat, denn in 
den Programmlistings finden sich ver- 
schiedene schwerwiegende Fehler: 

1. RAM-Disk-Driver für Pascal 1.1: Im 
Maschinenprogramm INIT.PASCAL- 
.SOURGCE fehlt die Unterroutine LOAD. 
(Bereits nachgetragen im Peeker 7/85, 
3.52, W8). 


2. Fourier-Analyse: Der Uhnterpro- 
grammteil 4310, aufgerufen von Zeile 
1600 fehlt (siehe Rahmen, us). 
Generell möchte ich die Gelegenheit 
ergreifen, noch einige kritische Anmer- 
kungen zu Ihrer Zeitschrift anzuführen: 
1. Ich finde es nicht gut, daß einige 
Programme auf mehrere Hefte und so- 
mit auf mehrere Monate verteilt werden. 
Zum Beispiel wird die Graf-quattro-Se- 
rie auf zu viele Hefte verteilt (wird abge- 
stellt; nach einem vorläufigen Abschluß 
wird Graf-quattro wahrscheinlich als 
Sonderheft erscheinen, us) 

2. Es wäre sicherlich sinnvoller, die 
Sammeldisketten nicht chronologisch, 
sondern thematisch zusammenzufas- 
sen (z.B. Grafik, DOS-Hilfen, Kopier- 
programme, Pascal-Hilfen, Spiele, Ma- 
thematikprogramme, BASIC-Hilfen 
usw.). Meines Erachtens würde sich da- 
durch die Attraktivität der Disketten er- 
höhen. 

Weiterhin wünsche ich mir folgende 
Programme im Peeker, die von sehr 
allgemeinem Interesse sein dürften: 

1. Ein Eingabeprogramm für Maschi- 
nenprogramme in Hexadezimal-Code. 
2. Ein Kontrollprogramm für Maschinen- 
programme, das die Richtigkeit der Ein- 
gabe überprüft(liegt bereits vor; er- 
scheint demnächst, us). 

3. Ein Hires-Druckausgabeprogramm 
(ähnlich die Superdump) für Pascal- 
Programme (liegt bei Jürgen Geiß be- 
reits vor; erscheint zu einem späteren 
Zeitpunkt, us) 

Jan Leutenantsmeyer, Bad Bentheim 


Verbesserungsvorschläge 

Weiter so: Peeker ist eine Zeitschrift, 
die ihr Geld wert ist. Aber trotzdem ha- 
be ich einige Verbesserungsvor- 
schläge: 

1. Ihre Programme, Bücher und Disket- 
ten sind so gut, daß sie so viel Werbung 
gar nicht nötig haben. Nutzen Sie die 
kostbaren Druckseiten für Wichtigeres. 

2. Wir wissen nun alle, daß Sie etwas 
gegen den Mac haben — wie ich im 
übrigen auch. Aber laßt doch denen ih- 
ren Mac, für die der Mac bestimmt ist 
und nutzt den Platz. 

3. Die meisten Artikel sind sehr interes- 
sant. Beim ersten Überfliegen der Arti- 
kel läuft mir das Wasser im Munde zu- 
sammen. Doch bald folgt die ernüch- 
ternde Feststellung: Das Mahl war nicht 
für mich bestimmt. Das leidige Problem 
der Kompatibilität. Kein Apple gleicht 
dem anderen. Drei Beispiele: 

1. Heft 6/85 berichtet über die RAM- 
Disk für CP/M 2.20, 56K. Die RAM-Disk 
läuft sehr gut unter der 56K-Version. Da 
ich aber lieber CP/M 2.23, 60K benutze, 
denn diese verträgt sich besser mit mei- 
ner Maus, kann ich die RAM-Disk nicht 
benutzen. Nicht nur, daß die RAM-Disk 
die Bank 2 der unteren 64K nicht nutzen 
darf, sondern diese Version belegt die 
Seite $FCO0 und hat auch andere Ein- 
sprungadressen. 

2. In Heft 7/85 wurde der Programmtext 
eines Fonteditors für die Videx-Karte 
veröffentlicht. Ich habe aber einen Ap- 
ple Ile mit 80-Zeichenkarte. Wo sind 
meine Zeichensatz-EPROMs und wie 
sind diese aufgebaut? 7 * 8 Pixel? 
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3. Im gleichen Bericht wird die Anpas- 
sung von Multiplan an die inverse Dar- 
stellung von Feldern angedeutet. Aber 
wie? 

Ich erwarte keine Programme für jede 
Version, aber vielleicht ist es möglich, 
am Ende aller Berichte Literaturhinwei- 
se anzugeben oder an anderer Stelle 
kleine Tips zu geben, damit alle die 
Programme besser nutzen können. 
Wilfried Pohl, Hamburg 


CP/M-RAM-Disk 

Herzlichen Dank für die Veröffentli- 
chung des RAM-Disk-Drivers für die 
64K-Karte unter CP/M. Schwierigkeiten 
gab es allerdings bei der Eingabe des 
Assemblerprogramms RDSKINIT mit 
Hilfe des DDT-Programms: Meines 
Erachtens stimmt der auf S. 61 abge- 
druckte „Hexdump“ nicht mit dem As- 
semblerquellprogramm S. 60/61 über- 
ein. Erst bei Eingabe des im Quellpro- 
gramm enthaltenen Hexcodes mit DDT 
stellt sich der versprochene Erfolg ein! 
Sofern ich den Artikel nicht gründlich 
mißverstanden habe, sollten Sie Ihre 
Leser auf diese Unstimmigkeit hinwei- 
sen bzw. einen korrigierten und über- 
sichtlicheren „Hexdump“ abdrucken. 
(Die jeweils letzte Hexzahl jeder Zeile 
ist eine Prüfziffer und darf nicht mit ab- 
getippt werden. us) 

Roland Schenkel, Otterbach 


Fourier-Analyse 

Das Programm FOURIER.MAIN, von 
dem ich nur den Analyseteil benutzte, 
hatte leider einige kleine Fehler. Die 
Bildschirmgrafik arbeitete nicht und die 
numerischen Ergebnisse waren offen- 
sichtlich falsch. Da ich kein Mathemati- 
ker bin, mußte ich erst einmal zu den 
zitierten Quellen hinabsteigen. Denn 
vor der Reparatur steht das Verständnis 
der dem Programm zugrunde liegenden 
Algorithmen. Es fehlte zunächst die 
Umschaltung von 80 auf 40 Zeilen vor 
Aufruf der HGR-Routinen. Dazu fügte 
ich ein Zeile 

3135 Print CHR$ (21) 

(Ist nicht erforderlich bei lle/c. us), 

und danach arbeitete die Grafik. In Zei- 
len 1920, 1990, 2110 einerseits und 
Zeilen 1920, 2000, 2110, 2170 anderer- 
seits stehen gleichlautende Ausdrücke 
der Form: IFL (bzw. K) =M ... Diese 
wurden geändert in: 
IFL(bzw.K)=>M... 

Danach rechnete das Programm mit der 
erwarteten Genauigkeit. Letztlich 
schrieb ich die Druckausgabe für mei- 
nen FX-80 völlig um und fügte noch 
einiges hinzu. Nach meinem Ge- 
schmack müssen die eingegebenen 
Stützstellenwerte und die Form der 
Fouriergleichung mit ausgedruckt wer- 
den, nicht nur deren Koeffizienten. 
Letztlich müssen bei mir auch die Zah- 
len geordnet untereinander stehen. Die 
Epson-Interface-Karte hat dafür eine 
eingebaute Formatierungsroutine. Die 
Genauigkeit allerdings ist nur ab einem 
Grad der Gleichung von 12 wirklich zu- 
friedenstellend, wenn man eine Funk- 
tion mit Sprungstellen, wie die im Be- 
gleitartikel vorgeführte, betrachtet. 
Rechnet man nur bis zum 2. Grad, sind 
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die Ergebnisse schlichtweg falsch. Aber 
ab dem 4. Grad sind die Ergebnisse 
akzeptabel. Die Genauigkeit kann aber 
verbessert werden, wenn, wie beim 
Handrechnen üblich, die Stützwerte vor 
Beginn der Rechnung daraufhin unter- 
sucht werden, ob bei der Kurve gewisse 
Symmetrie-Eigenschaften vorhanden 
sind. Bei Vorhandensein können Cos- 
Terme oder Sin-Terme völlig ausge- 
schlossen werden. In der Beispielfunk- 
tion würden dann die jetzt erscheinen- 
den Cos-Werte entfallen. 

Rolf Sauer, Heidelberg 


Grafik-Dump auf IIc 

Zuvor ein dickes Lob für Ihre Zeitschrift! 
Als Besitzer eines Apple Ilc stellt sich 
mir die Frage, wie man mit ihm Grafiken 
ausdrucken kann, obwohl man mangels 
Slots keine Grafik-Interfaces benutzen 
kann. Ferner bitte ich Sie, mir mitzutei- 
len, ob der Tandberg Data Tintenstrahl- 
drucker beim Ilc zum Ausdruck von 
Grafiken benutzt werden kann. 

Anton Bredonius, Pforzheim 


Superdump für Seikosha? 
Veröffentlichen Sie auch zum Beitrag 
Superdump Heft 6/85 die Modifizierung 
für den Seikosha GP-100A Mark II? Ein 
riesiges Lob auch an Ihre Aufmachung 
der Titelseiten. Ich finde, so etwas sollte 
es auch als Poster geben. Weiter so! 

I. Kübler, Backnang 


Lochrand 

Beim Abheften von Listings in Plastik- 
Ringbinder geht der linke Teil der Zei- 
lennummern verloren (Lochung!). Gibt 
es einen Poke, um das Listing 2 cm 
nach rechts zu schieben? 

Heinz Specht, Bietigheim-Bissingen 


Bit-Editor auch für lle? 

Mit großem Interesse habe ich den Arti- 
kel von Herrn Klamt in Heft 7/85 gele- 
sen. Die Verbesserung der Zeichenles- 
barkeit ist enorm! Da sich mit dem Pro- 
blem der guten Lesbarkeit der 80 Z/Z 
nicht nur die Besitzer von Videx-Karten 
herumschlagen, wäre es bestimmt eine 
gute Idee, dieses Programm auch für 
die Apple lle-Karte (80 Z/Z + 64K) zu 
veröffentlichen (evtl. sogar mit der Lie- 
fermöglichkeit entsprechender 
EPROMs, da nur wenige Anwender die- 
se EPROMs selbst brennen können). 
Werner König, Hanau 


Wie schnell ist der Mac? 

Falls Sie zu diesem Artikel (Heft 5/85, 
S.43) noch keinen Berg von Leserbrie- 
fen erhalten haben, kann dies eigentlich 
nur daran liegen, daß der Fehler zu of- 
fensichtlich ist. Ohne groß darüber her- 
zuziehen, ist Ihnen ja hoffentlich klar, 
daß Herr Capitain nur die effektive Takt- 
frequenz gemessen hat. Bevor ich Ih- 
nen das aber genauer erläutere, erkläre 
ich, daß ich weder mit der Firma Apple 
auf irgendeiner Weise verbunden bin 
noch einen Mac besitze, sondern mich 
als Student der Physik (im Rahmen mei- 
ner Diplomarbeit) mit der Beschaffung 
eines 68000-Systems beschäftige. 

Der 68000 hat die Eigenschaft, auch mit 
langsameren Speicherbausteinen zu- 
sammenzuarbeiten, indem er Waitzy- 


klen einfügt. Nicht jeder Speicherbau- 
stein schafft die notwendigen 125ns 
Schreib-/Lesezeit, um mit einer 8 MHz 
CPU zusammenzuarbeiten. 

Untersucht man die verwendeten Be- 
fehle zwischen EOE und E1E genauer 
(ohne die Piepser), so stellt man folgen- 
de Anzahl von Taktzyklen fest, die für 
Schreib- und Lesezugriffe benötigt 
werden: 


Befehl — Takte — Speicherzugriffe 
MOVE.W #7F, D1 - 12 - 3/0 

MOVEQ #FF,DO — 4 — 1/0 

MOVE.L (A7),(A7) — 20 — 3/2 

DBRA DO, E14 - 10 — 3/0 — (verzweigt) 
DBRA DO, E14 — 14 - 3/0 — (nicht 
verzweigt) 

CLR.W - (A7) - 14 — 2/1 


Das ergibt eine Gesamtanzahl von 32 + 
30 x DO x Di + 18% D1 Takten, davon 
6+8%*DOx*Di +4x DI Schreib- oder 
Lesezugriffe. (Wie Herr Capitain auf den 
Term von 32 x DO & D1 kommt, ist mir 
ein Rätsel, erklärt aber nicht seinen 
Fehler. Außerdem wird der Befehl 51xx 
normalerweise nicht als DBRA, sondern 
als DBF übersetzt.) 

Dies bedeutet eine effektive Taktfre- 
quenz von 5,21 MHz. Man braucht nur 2 
Waitzyklen einzulegen (ein Waitzyklus 
reicht nicht aus, denn 250ns-Bausteine 
sind auf dem freien Markt auch noch 
selten und dort muß Apple ja kaufen, da 
sie nicht selbst Speicherbausteine pro- 
duzieren), um dann auf die gesuchte 
Taktfrequenz von 8 MHz zu gelangen. 
Leider ist der Beweis nicht auf die 
schnelle zu führen, da fast alle Befehle 
das Verhältnis von 1 Schreib-/Lesezu- 
griff auf 4 Taktzeiten haben. Unter Opfe- 
rung von 6 Minuten kann der Beweis 
angetreten werden. Nach meiner Be- 
hauptung müßte die gleiche Schleife mit 
zehn MOVE.L (A7), (A7) 331,4s dauern, 
während eine Taktfrequenz von 5,21 
MHz ohne Waitzyklen 340,2s benötigen 
würde. Diese 9s Unterschied müßten 
ausreichen, um Meßfehler auszuschlie- 
Ben. Denn eine Steigerung der Taktfre- 
quenz um 0.1 MHz nach Belieben des 
Rechners ist mir noch nicht vorge- 
kommen. 

Wer dem Macintosh als (ersten billigen) 
„Grafik“-Rechner noch anlasten will, 
daß er zu langsame Speicherbausteine 
hat, sollte sich tatsächlich einen ande- 
ren Rechner zulegen, um dem Traum 
von Geschwindigkeit nachzukommen. 
Georg Verweyen, Aachen 


1. Replik zum Mac-Brief 

Zu den einzelnen von Ihnen angespro- 
chenen Punkten möchte ich folgendes 
bemerken: 

— Ob man den Befehl 51xx mit DBF 
oder mit DBRA übersetzt, ist Ge- 
schmackssache; beide Versionen wer- 
den vom Assembler akzeptiert. Sollte 
jemand die Form DBF bevorzugen, so 
kann er dies leicht durch entsprechende 
Änderung der Zeile 1842 erreichen. 

— Der Term 32 x D1 & DO in der Formel 
für die Zahl der Takte kommt dadurch 
zustande, daß in meinen Unterlagen 
manche Befehle andere Ausführungs- 
zeiten haben, als Sie sie angegeben 
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haben. So benötigt insbesondere der 
Befehl MOVE.L (A7),(A7) 22 Takte (sie- 
he MC68000-Benutzerhandbuch, deut- 
sche Ausgabe 1980). Welche Angabe 
richtig ist, weiß ich nicht. 

— Die von Ihnen vorgeschlagene Schlei- 
fe mit zehn Befehlen MOVE.L (A7),(A7) 
benötigt nach meinen Messungen 
345,08. 

— Leider haben Sie die Absicht mißver- 
standen, die ich mit dem Beispielpro- 
gramm gehabt habe. Ich wollte keines- 
wegs aus dem Mac einen langsamen 
Rechner machen. Vielmehr bin ich als 
Assembler-Programmierer, der seine 
Programme (fast) immer im RAM ablegt, 
daran interessiert, wie schnell diese 
Programme dann laufen. Und von die- 
sem Standpunkt aus ist es mir wichtig, 
daß der Mac im RAM eine (effektive) 
Taktfrequenz von ca. 5-6 MHz und nicht 
8 MHZ erreicht. Und die für den Physi- 
ker sicher interessante Feststellung, 
daß der Mac 8 MHz schaffen könnte, 
wenn nur die Speicherbausteine 
schneller wären — diese Feststellung 
macht meine Programme dann aber 
auch nicht schneller. 

Pit Capitain 


2. Replik zum Mac-Brief 

Mein Lieblingsphilosoph, Nicolai Hart- 
mann, schrieb dicke Wälzer über das 
Thema „Möglichkeit und Wirklichkeit“. 
Wenn ich mich mit meinem alten Golf 
GTI von der Hebebühne hochhieven 
lasse, den Motor starte und dann im 
fünften Gang das Gaspedal bis zum An- 
schlag durchtrete, gaukelt mir die Ta- 
cho-Nadel eine Geschwindigkeit von 
220 km/h vor. Warum gibt VW dann 
nicht in der Werbung an, daß der GTI 
220 „Sachen schafft“? Weil sich nie- 
mand ein Auto kauft, um auf einer Ram- 
pe zu „fahren“! Soweit die Werbung in 
der Autoindustrie. Betrachtet man dem- 
gegenüber die Werbung in der Compu- 
terindustrie, so wird man schnell ge- 
wahr, daß hier vielfach nur das Mögliche 
und nur ganz selten das Wirkliche her- 
ausgestellt wird. Einige Beispiele: 

1. Takte/s: Wenn ich den Mac-68000- 
Prozessor in der Hand halte, kann ich 
von der Möglichkeit von 8 MHz spre- 
chen. Steckt der 68000 jedoch im Mac- 
intosh, so sieht die Wirklichkeit ganz 
anders aus. Bereits vor anderthalb Jah- 
ren wurde in der „Byte“ konstatiert, daß 
das Video-RAM des Macintosh nur eine 
Taktfrequenz von ca. 5,5 MHz zuläßt. 
2. Zeichen/s: Wenn man in den Epson- 
Handbüchern nachschlägt, findet man 
z.B. für den FX-80 eine Druckgeschwin- 
digkeit von 160 Zeichen/s. Der best- 
mögliche Wert, den ich gemessen ha- 
be, beträgt 103 Zeichen/s. Unter wel- 
chen Umständen könnte die Möglich- 
keit der 160 Zeichen/s zur Wirklichkeit 
werden? Wenn ich die Zeit messe, die 
der Druckkopf benötigt, während er in- 
mitten einer Textzeile, nachdem er be- 
reits „auf vollen Touren“ ist, quasi „im 
freien Flug“ eine Leertaste überspringt, 
komme ich „hochgerechnet“ mögli- 
cherweise auf 160 Zeichen/s. Mit der 
Realität hat dies allerdings nichts ge- 
mein. 
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3. Bits/s: Bei Diskettencontrollern ist 
meist von „Megabits“ die Rede. Sind 
derartige Übertragungsraten reali- 
stisch? Wohl nur dann, wenn man sich 
das jeweilige Betriebssystem weg- 
denkt. Doch wer arbeitet schon mit ei- 
nem Controller onne DOS? Beispiels- 
weise fragte mich nachträglich die Firma 
Frank und Britting, warum in dem Mega- 
core-Bericht (Heft 7/85, S.77) von einer 
Übertragungsrate von nur 4000-15400 
Bytes/s die Rede sei, wo doch die Me- 
gacore viele, viele Megabits/s übertra- 
gen würde. Was will jedoch der poten- 
tielle Käufer erfahren: einen physika- 
lisch „richtigen“ Laborwert oder einen 
physikalisch „falschen“ Praxiswert? 
Was für die Autoindustrie gilt, sollte 
auch für die Computerindustrie gelten. 
Wer sich nicht an den theoretischen 
Physiker wendet, sollte die Geschwin- 
digkeit niemals auf der Hebebühne, im 
Vakuum oder im freien Fall von der Zug- 
spitze messen. 

U.Stiehl 


Vermischtes 


Paul Lutus im ZDF 

Als ich mir am 18.07.85 im ZDF die 
Sendung „Aus Forschung und Tech- 
nik“ ansah, traute ich meinen Augen 
kaum, als plötzlich Paul Lutus für weni- 
ge Sekunden auf der Mattscheibe er- 
schien. Der Schöpfer des „Applewriter“ 
lebt in einem Holzhaus im tiefsten Wald 
von Oregon mit einer riesigen Funkan- 
tenne im „Vorgarten“, die ihm den Kon- 
takt zur Außenwelt ermöglicht. Die 
Waschbären scheinen also seinen Pro- 
grammierdrang noch nicht gebremst zu 
haben. us 


Visicalc eingestellt 

Man darf wohl mit Fug und Recht be- 
haupten, daß der Apple Il in der Grün- 
derzeit erst durch „Visicalc“ kommer- 
ziell salonfähig wurde. Viele Kaufleute 
erwarben damals einen Apple Il nur aus 
dem einen Grunde, um das berühmte 
Tabellenkalkulationsprogramm einzu- 
setzen. Im Jahre 1979 von Software 
Arts alias Visicorp für den Apple konzi- 
piert, wurde es bald für zahlreiche ande- 
re Rechner umgeschrieben und entwik- 
kelte sich zu einem der erfolgreichsten 
Mikrocomputerprogramme aller Zeiten. 
Als dann „Multiplan“ von Microsoft und 
„1-2-3“ von Lotus erschienen, ließen 
die Visicalc-Verkäufe merklich nach. 
Jetzt machte die Firma Lotus dem 
Longseller vollends den Garaus, indem 
sie zuerst Visicorp übernahm und dann 
prompt Visicalc aus dem Verkehr zog. 
us 


Peeker und Schule 

Großes Lob für die reichhaltigen Beiträ- 
ge, die auch Laien einiges geben kön- 
nen. Gibt es einen besseren Beweis als 
folgenden? Wir haben den Peeker an 
meiner Schule als Fachzeitschrift abon- 
niert. Dennoch hat sich nach mir ein 
weiterer Kollege zum privaten Abo ent- 
schlossen, weil zum einen das Schulex- 
emplar genutzt wird wie keine andere 
Zeitschrift sonst (und somit ständig 
„unterwegs“ ist) und es zum anderen 
doch etwas anderes ist, informatives 
Material ständig parat zu haben. 

...Völlig stiefmütterlich behandelt der 
Staat seine Lehrer, denn an Aus-, Fort- 
und Weiterbildungsmaßnahmen läuft 
äußerst wenig. Fast alles — insbesonde- 
re im Sekundarstufen-I-Bereich — muß- 
(te) autodidaktisch erworben werden: 
Hier sehe ich das weite Feld für den 
Peeker, wobei Sie sicher darauf achten 
werden, daß der Peeker nicht zur Kla- 
gemauer der Pädagogen wird. 
Hermann Döring, Liederbach 


Pyramid Pitty als Hex-Dump? 

Zu dem in Heft 7/85 nur beschriebenen, 
aber nicht gelisteten Programm erhielt 
ich einige verbitterte Zuschriften von 
Peekerlesern, die darauf bestanden, 
daß zumindest der Hex-Dump hätte ab- 
gedruckt werden sollen. Offensichtlich 
war den Schreibern nicht bewußt, daß 
professionelle Computerspiele extrem 
umfangreich sind. So umfaßt der reine 
Hex-Dump aller Module von Pyramid 
Pitty ca. 20400 Bytes. Bei dreispaltigem 
Druck mit je 90 Zeilen zu je 8 Bytes pro 
Spalte würden sich insgesamt minde- 
stems 9 3/4 Druckseiten im Peeker er- 
geben. Diese „Byte-Masse“ kann nie- 
mand fehlerfrei abschreiben. Und der 
Quellcode selbst hätte übrigens mehr 
als ein ganzes Peekerheft gefüllt. Ich 
hoffe, daß damit ausreichend begründet 
ist, warum das Listung des Programms 
nicht abgedruckt wurde. us 


Sammeldisk #10 

Die Programme aus diesem Heft 9/85 
finden sich auf der Sammeldisk #10, 
die in Verbindung mit Heft 10/85 ausge- 
liefert wird. 
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Dipl.-Ing. R. Springmann, Hannover . . . 2... 22 2220. 29 
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Errata 


Fourier-Analyse 


In Heft 6/85, S. 42 hat unsere Druckerei bei der 
Datenübertragung exakt 1924 Bytes "unterschlagen", 
und ich habe es beim Klebeumbruch nicht gemerkt... 
Nachfolgend der fehlende Abschnitt. Auf der 
Sammeldiskette #6 ist das Programm komplett. 


4220 RETURN 


4230 PRINT CHR$ (12): PRINT "Im folgenden Katalog 
der Disk sind die entsprechenden": PRINT : 
PRINT "Files wie folgt gekennzeichnet:" 


4240 PRINT 


4250 HTAB 19: PRINT "xxxxxKOEFF beinhaltet die 
Fourier-Koeffizienten einer bereits": PRINT: 
HTAB 19: PRINT "analysierten Funktion." 


4260 PRINT : 


HTAB 19: PRINT "xxxxxWERTE beinhaltet 


eingegebene Funktionswerte.'" 


4270 PRINT : 
4280 PRINT : 


INPUT "S1LotT:":S 
INPUT "Drive:";D 


4298 PRINT D$; "CATALOG ‚S";S;",D";D 


4300 RETURN 
431® REM 


4320 REM *** Eingabe mit der analytischen Funktion x*x*%* 


4339 REM 
4340 PRINT CHR$ (12) 
4345 LIST 4419: PRINT 


4350 INPUT "Ist die zu analysierende Funktion 
bereits in Zeile 441® einprogrammiert? (J/N)";FF$ 


4560 IF FF$ = '"J" THEN 441 
437® PRINT 


4380 PRINT "In Zeile 4158 ist nach Programmstopp 
die zu berechnende Funktion": PRINT : 


PRINT "einzuschreiben" 
4390 PRINT : 
4410 DEF FN F(I)=... 


PRINT "Dies muß in der Form: 
geschehen.": 


PRINT : 


PRINT "Nach Eintragen der Funktion wird das 
Programm mit RUN neu gestartet." 


STOP 


Formatter 


Laut Peeker, Heft 7/85, S. 22, 


steht noch ein 


Patch aus, um dieses Formatierungsprogramm 
optimal für Disk-II- und Duodisk-Laufwerke 
einzustellen. Als Korrektur gibt der Autor, 


Arne Schäpers, an: 


BLOAD FORMAT.OBJ 
CALL -151 
20F6: 59 (statt bisher 39) 


BSAVE FORMAT.OBJ, A$2000, L983 


Man beachte, daß es sich bei dieser Korrektur 
des "Armbewegungswertes'" nicht um einen Fehler 
im engeren Sinne handelt. Vielmehr erreicht man 
durch Erhöhung des Wertes von $3® auf $5ß, 

daß der DOS-Read-Write-Zugriff auf unterster 
RWTS-Ebene ausgeglichen ist. Der alte Wert $39 
bewirkt, daß der Sektor-Read sogar geringfügig 
schneller als normal ist (ca. 5%); dies kann 


bisweilen erwünscht sein. 


Besitzer anderer Laufwerke können mit anderen 
Werten im Bereich $3@-$5® experimentieren. us 


PLOT 2.0 


Im Programm PLOT 2.8 aus Peeker 5/85 sind im Listing 


(nicht auf der Sammeldiskette) 


Zeile 3338 I =B... 
statt 3330 I =1I 


Zeile 3940 .... 
statt 3949 .... 


THEN 3919 
THEN 


Zeile 5400 


.... GOSUB 2 
statt 5409 .... 


GOSUB 1®1® 


folgende Tippfehler: 


Ferner muß die vorletzte Zeile des EXEC-Files PLOT.PROTECTOR 


POKE 59,255 
statt POKE 59,225 lauten. 


Die Sammeldiskette ist, wie gesagt, korrekt. 


Pressestimmen zur Wirtschaftlage von Apple 


„Die Revolution * 
hat gerade erst begonnen“ 
(Apple-Werbeslogan 1985) 


Die anhaltende Spekulation beruht auf 
der Überlegung, daß sich Apple, dieses 
Symbol der Auflehnung gegen konven- 
tionelle Umgangsformen, an einen star- 
ken Konzern anlehnen muß, um auch in 
den Bürocomputermarkt einzudringen. 
Das braucht keine Zusammenlegung zu 
sein. Ein Vertriebsabkommen mag ge- 
nügen. 

Im Gespräch sind die Giganten Atandt, 
General Electric, General Motors, Wang 
und Xerox. Sie dementieren durchweg. 
Eine „feindliche Übernahme“ gilt als 
unwahrscheinlich, weil Apple-Vor- 
standsmitglieder gute 20 Prozent des 
Aktienkapitals kontrollieren. 
Handelsblatt vom 30.05.1985 


Die Schwäche auf dem Heimcomputer- 
markt zwang jetzt auch die Nr. 2 in den 
USA, Apple Computer Inc., zu einer 


drastischen Reorganisation, in der sie 
ihre gewachsene Firmenstruktur über 
Bord warf und sich dem konventionellen 
Aufbau des Erzrivalen IBM anpaßte. Auf 
der Strecke blieb dabei Apple-Mitgrün- 
der Steven Jobs, ein 30jähriges Wun- 
derkind, der zusammen mit seinem 
Freund den Markt für Personalcomputer 
erst kreierte. Insider gehen davon aus, 
daß Jobs seine Verantwortung für Ent- 
wicklung, Produktion und Verkauf des 
Macintosh erst aus der Hand legte, 
nachdem ihn der Aufsichtsrat davon 
überzeugen konnte, daß eine Beibehal- 
tung der Firmenspaltung in einen Ap- 
ple-II- und Macintosh-Flügel zur Exi- 
stenzbedrohung werden könne. Nach 
der neuen Struktur gibt es nur noch 
eine Funktions- und keine Produktspal- 
tung mehr. Jobs wurde zum Vorsitzen- 
den mit „globalen Funktionen“ beför- 
dert, die Probleme bei Apple ließen den 
Kurs der Aktie gegenüber seiner 
Höchstnotierung um annähernd 75% 
fallen. 

Handelsblatt vom 03.06.1985 


* Revolution kommt von lat. revolvere = zurückdrehen 
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Aufgrund der weltweiten „konjunkturel- 
len Schwächetendenz des Computer- 
marktes“ wird die Apple Computer 
GmbH München die Zahl ihrer Mitarbei- 
ter abbauen. Wie Geschäftsführer Ralph 
M. Deja mitteilte, wird die Belegschaft 
zum Oktober dieses Jahres um 25 auf 
62 Mitarbeiter reduziert. 

Stuttgarter Zeitung vom 29.06.1985 


Das akute Apple-Problem — die Wachs- 
tumsraten der Industrie und der „Le- 
bensstandard“ des Herstellers (Mana- 
gerschulung auf Sylt!) passen nicht zu- 
sammen — wird durch die von Sculley 
verordnete Diät nicht entschärft. Zwar 
lacht das Herz des Apple-Kassierers, 
daß mit den Personal-Entlassungen die 
finanzpolitisch richtigen Entscheidun- 
gen getroffen wurden, doch bleibt die 
Frage der Marktpräsenz: Wie will die 
Apple-Rumpfmannschaft Stärke de- 
monstrieren und — was viel wichtiger 
scheint — ihren Kunden den nötigen 
Support bieten? Beispiel: Es erscheint 
fast als eine Anmaßung, im „Büro“ sein 





zu wollen, wie Sculley vorgibt, wenn die 
Produkte („Mac-Office“) noch nicht da 
sind. Wie will man so, etwa gegenüber 
gestandenen Großunternehmen, Serio- 
sität als Computerhersteller auf die Bei- 
ne bringen? Es geht hier immerhin ge- 
gen die IBM, die ihre Marktmacht bei 
den „Large Accounts“ über Speziali- 
sten in den zentralen DV-Shops ausübt. 
Noch ist nicht zu sehen, daß Apple vom 
hohen Roß heruntersteigen will. So 
macht beispielsweise Deutschland- 
Chef Ralph Deja die schlechte Konjunk- 
tur im Computermarkt für die Apple- 
Schwäche verantwortlich. Diese Aussa- 
ge ist, was die Bundesrepublik betrifft, 
schlichtweg falsch. Once again: Wie will 
Apple Seriosität auf die Beine bringen? 
Von der Beantwortung dieser Frage 
hängt es ab, wie heuer die „Apfel“ - 
Ernte ausfällt. 

Computerwoche vom 05.07.1985 
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2-80-Karte gg. 80-Zeichen-Karte 
———  —- mitt Sorftswitch, neue 
Disk-Interface 69,- Vers. m. gest. scharf. Bild 


Centronics-Interf. m. Kabel 69- Speech-Karte 
I6KRAMKarte 69- Giock-Karte 


RS22Kare 2 — 109,- Super-Serial-Karte 


Eprommer (4,8, 16K)_ 139- Komp 2E 


128-K-RAM-Karte 279,- Apple 2E kompatible, Rechner 
256-KB-RAM-Karte ws, 64 Kim 2E-Design, ohne Firmware 


87 > BillKarte 
e 69,- : 
Wild-Karte für 2E kompatible 


Händleranfragen erwünscht! Apple-Info 1,- DM (Porto) 
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XT16PC 


16 Bit 8088 Rechner 
vollständig Kompatibel, 
ausgerüstet mit: 
Colorcard, 

256 RAM 

Floppy Controller, 

1 Drive, 360 K, 
deutsche Tastatur, 

130 W Netzteil 


XT 16 PC 
mit 6 MByte Winchester 


XT 16 WLC 












MCIXT16PC 





4499 DM 








Anzeigen- Firma 









: FLUSTER-FLOPPY 
CHINON F-051 A 
mit Kabel 379 DM mit Kabel und Gehäuse 







Apple Il 


+ Kompatible 
Komp 48 
48 K. 6502 ohne Firmware 


139,- Komp 64 


ohne Firmware 

99,- 
129,- 
199,- 
797,- 


99, 


Pt O0OO Apr DO0D 
Appıe |[Krc] 


Da guckt jeder, bei den Neuigkeiten ! 


= 1150 0-40 3 7-AR , 1 > VOrRERNENRERREERE PEREENERS RUREFRREERCEPEERES HERR 
BP Apple //c mik 2 Laufwerken + Contr.. 
Ze Apple //e mit 2 Laufwerken + Contr. + 
Drucker ({NLQ,120 Zchn,2Hb Puffer)+inte a 
Monitor 15 MHz 12” bernskt./grün.....eesenen 298.- 
Monitor 29 MHz 12” ” 9 + TON. 
Erweiterte 89 Zeichenkarte [(//e)............... 
Apple //c + zweites Laufwerk 
Spple //c + zweites laufwerk + Drucker 
{nLQ, 120 zehn/s 2Hb Pure Inkerf...... ums 
e ? glfayya [a 























kompatibel mit /Ic, /le +Mac 160 Zchn/s 
mm sehr klein 80*275*360, Puffer 84b opt. 16 Kb 
Papierzufuhr von hinten+unten (Etiketten) 
hevorragende Druckqualität......usuesasssnnnnnnn 
Neu Mac-Video ein Videointerface für den Mac 
Mac Speichererweiterunge auf 512 Kb ... ! 
Mac Software: Ensemble, Jazz,Omnis 3,@ord,File 
Sargon, Musicworks,Multiplan,EXCEL,Mac Doc, 
Adress,Lohn,Fibu,Hand Mac,Basic,1 Base,Termine 
Neu : Mac-Tablett das Graphiktablett für den Macintosh 
Brauchen Sie mehr Speicherplatz oder wollen 
Sie mehrere Mac's zusammenschließen holen 
Sie unser Festplattenäangebot ein. 
Ständig Vorführgeräte zu Sonderpreisen !! 
L_ zb.Monitor mit Ständer für Apple //c ........ 598.- 

Preise inkl. Mist. ]Joystick //e 39,- Funkfernschreibkonverter 498, - 
Anrufbeantworter mit Fernabfrage 0.FTZ nur.............. 399.- 
Disketten Diskkästen Papier Bense-Software Taxan Monitore 

BTX mit //c+t//e Vertretungen: Brother Star OKI CORDUS Olvmpia 
NEC Summagraphik Datanabe usw. Neu Ski Farbdrucker..895.- 


die aktuellsten Preise im Mailboxservice: 061 74 7 5355 
KFL wiesenstr. 18 6240 KÖNIGSTEIN Tel.06174/21953 (3033) BTX=921069« 








Die Artikel der Firma 
Interdata GmbH, Singen, 
sind auch über die 
Beltronic, B. 
schluß Ledergerber, Im vorderen 
Chapf, CH-Rüdlingen 
Tel.: 01/8673141, zu 


beziehen. 


29.10.08 





3,5“ Pana. JU 363 479DM 
135 tpi 2x 80 track 1 MByte 


TEAC FD55B 379DM | 
48 tpi 2 x 40 track 500 KByte 


TEAC FD55F 449 DM 
96 tpi 2x 80 track 1 MByte em 


SANYO BFT540 399DM 
48 tpi2 x 40 track 500 KByte 


SANYO BFT580 449DM 
96 tpi 2x 80 track 1 MByte 


CHINON F-502 399 DM 
48 tpi2 x 40 track 500 KByte 
REMEX RFD480 329DM 
48 tpi2 x 40 track 500 KByte 


Apple AFD55A 399 DM 





Billigversion!!! STATIONEN 
CHINON A-Il 2x8“ SSDD KIT 1399 DM 
mit Kabel und Gehäuse 345DM 2x8“DSDD KIT 1999 DM 


64 K, 6502, Z-80, 15er-Block 


Alle Preise inklusive Mehrwertsteuer. 6 Monate 


Garantie Versand erfolgt per NN oder Vorkasse. 


















@® MX 80 + Graftrax Compatible 
@ 100Zeichen/9x1 1 Matrix,6Zeichensätze 
® Parallel + RS232, Einzelblatt u. Traktor 
für IBM ch 749 DM 







840,- 
Komp 64 S 


940,- 


wie Komp 64, jedoch mit abgesetzter 
Tastatur mit 188 Funktionen. 


Motherboard 48 K 369,- 
8 Slots, alle IC’s gesockelt, 

ohne Firmware, fertig geprüft 
Motherboard 64 K 


wie oben, mit 6502 und 379- Klaus Jeschke 
Z 80, 64 K 


Hard-, Software 
Viertstr. 3-13 
6233 Kelkheim 
2 (06198) 7523 


Ausgabe und 
Eingabe mi: 


TYPETERM?® 


im Slot Ihres 


APPLE IVlle 


Das bedeutet: Computer- 
textverarbeitung von der 
Schreibmaschinentastatur! 


Steckerfertig ohne Umbau. 


TYPETERN- DM479,- 
Interface incl. MWSt. 
für alle BROTHER-Typenrad- 
schreibmaschinen 


Paketpreis: DM 1348, vu 


Schreibmaschine 
CE-51 mit TYPETERM 




















@ 
QUALITÄT AUS ERSTER HAND. 


CE-61 mit TYPETERM ........... DM 1787,- 
EM-80 mit TYPETERM  .......... DM 2087,— 
EM-100 mit TYPETERM ......... DM 3122,- 
TYPETERM-Kit für CE-50 ..... DM 468,- 
CE-25 mit TYPETERM .............. anfragen 


TYPETERM - ein starkes Interface für 
starke Maschinen! Alle Cursor- und Ctl- 
Befehle. 2k ROM auf der Karte f. DOS, 
PRODOS, CP/M, PASCAL. Alle Features: 
Hoch-/Tiefstellen, autom. Unterstreichen, 
var. Zeichen- u. Zeilenabst., autom. 
Papierzuführung usw. Ausführl. 
Handbuch vorab: 10,— DM auf Konto 
14770-306 PGiroA Han (Anrechnung). 


TYPETERM ein Produkt von 


ınterkom Kock & Mreches GmbH 


Postt., 3004 Isernhagen 4 
electronic Telefon 05139-87393 



























» ESPRINT 80/ 801 





== z=2. Postfach 20 04 01 
za mu wu N J.-W.-Lindlar-Straße 8 
BE ES — EB B 5060 Bergisch Gladbach 2 


. av ER Wu H 121. (02202) 31007 : Tx. 8873518 





Auf alle Geräte 6 Monate Garantie - Änderungen, die technischen Verbesserungen dienen, vorbehalten - Lieferbedingungen auf Ange: Lieferung solange Vorrat reicht - 
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DAS 
APPLE Il 
HANDBUCH 


Die rasche Orientierung für APPLE 
IIplus, He, Ic 


Schnelle Antwort auf Alltagsfragen am APPLE II — 
leicht nachzuschlagen, praxisbezogen, für Ilplus, Ile, IIc 
innur 1 Buch! 
Unterschiede Ilplus/lle, DOS 3.3/ProDOS, E/ A-Inter- 
facekarten/Ports, 40/80 Zeichendarstellung, US/DTS- 
Tastatur, 48K/128K Systeme etc. 
Grafik/Soundmöglichkeiten, eine der APPLE-Stär- 
. ken, in stark erweiterter Beschreibung. 
Kurzführer ‚Steckkartenerweiterungen“ mit Fotos; 
= Bene. klin tnesenhinden „„ofortbetrieb von Disketten/Cassettengeräten”; 
ku „Druckerbetrieb“; „Direktbefehle“; „Tastaturbedienung“etc. 


Backgroundwissen: BASIC für Beginner/Professionelle; Wo BASIC-Kombination; MC- 
Entwicklung mit MONITOR/MINIASSEMBLER; APPLE-PASCAL-BS; 
Disketten/Plattenspeicherung; Dateiformate etc. 

Ausführlicher Anhang zu Editor, Speicherbelegung, Codes des 
APPLESOFT-Interpreters etc. 


DAS APPLE II HANDBUCH für ee Ge = 
Ilplus, Ile, IIc, ca. 500 Seiten, Theo-Prosel-Weg I nl 
Softcover, DM 66,- 8000 München 40 


Weiterführende Literatur... 


| | Ngr) 
_ __Reparaturanleitung Computer: REITER IE LNDER 
_ Apple II, Iplus 3. LOGO - 
- |Einzigartige Serviceunterlage für Reparatu- | °& =. #3 Jeder kann programmieren 
|ren und Entwicklungsarbeiten am Apple Il. (Daniel Watt) 
_|Enthält Schaltpläne, Bauteile- und Ver- w we Buch des Jahres in den USA. Für die 
|gleichstypenliste; Prüfpunkte mit Oszillo- RS 1 Computer APPLE II, C-64, IBM PC, ATARI 
|grammen der Signalformen, Logiktabellen, “ EM bis 520 ST. TI-99 und CPC 464/664. 
Spannungsangaben; schnelle Servicetests; a Hochwertiges Textbuch für Logo-Kurse für 
Anleitung zur systematischen Fehlersuche. Ä zu Hause und im Lehrbereich. 


„In A4-Mappe, DM 29,80 nur | 384 Seiten, A4, DM 59,- 





NE, APPLE | 


MASCHINEN 
SPRACHE 
APPLE II - Bewegte 3D-Graphik oonmman.xurrnman | Apple Maschinensprache 


(Phil Cohen) Für BASIC-Programmierer der einfachste 


Selbstentworfene Graphiken und Dia- gi Fa Wu „g,) Zugang zur Muttersprache des Apple. Wesent- 
gramme - animiert oder als Standbilder - 7 aa er lich schnellere Maschinenprogramme, direkte 
eben oder räumlich: alle erforderlichen RZ EHR H| | Manipulation des Mikroprozessors 6502 im 


E BASIC-Programme mit Erklärung finden .“ v2 re <= 780 Apple — als Brücke dorthin benötigt dieses 
T Ba Die un diesem Buch. ee Sam Buch nur die drei BASIC-Befehle, POKE, 
ee 200 Seiten, Softcover, DM 49,- DE Wie An CALL, PEEK. D. Inman/K. Inman. DM 49, — 


En Computer für Kinder Erstes deutsches Referenzwerk sämt- 

(Sally Greenwood Larson) APPLE || ner ehe uns Systemroutinen von 
Ein Buch für Kinder. ihre Lehrer EI Bu pple Il, Iiplus, Ile 
und Eltern. IL APPLE IIPASCAL Ver, 
„Computer für Kinder“ richtet Betriebssystem, 272 S., DM 49,- 
sich an Kinder im Alter von 8 bis | Sprache, 216 S., DM 39,- 
13 Jahren. für deren Interesse an M Pascal 1.2 Addendum, 112 5., DM 36,- 
Computern dieses Buch bewußt nn 

_ 2 geschrieben wurde. Unterhaltsam Haren as 

und leicht verständlich. Ein Handbuch für Beginner. ; 


A4 quer. Fadenheftung. DM 29.80 Em ran Be N el 





tm 4310 


Noch im Programm: In Vorbereitung: 
6502 - Programmieren in Assembler DM 59,- Macintosh Programmier-Handbuch 
VisiCalc, 50 Programme auf Diskette, DM 79,- mit Microsoft BASIC 2.0 DM 59,- 





1 VERRERREENNG AHRENS Prssananers unse u Manns So a it EHER TEE SE LEERE 
Interfaces für Computer mit Applebus + Interfaces für Computer mit Applebus + Interfa 








AP 13 und AP 17 AP 33 

RAM-Karten zum Einsatz als Pseu- RAMDISK der neuen Generation. 
dodisk unter CP/M, USCD und Für besonders speicherintensive 
APPLE-DOS. Speichergröße von Arbeiten ist der Ausbau in Stufen 


64 kByte bis 256 kByte. von 64 kByte bis 1MByte möglich. 
Bestell-Nr.: A 1013 a-b Bestell-Nr. A 1033 
A 1017 a-d 








AP 14 
Floppy-Controller für alle Anwen- 
dungsfälle. 10 Laufwerke können 
gleichzeitig angeschlossen werden. 
4 x 8” DSDD, 4 x 5V\Ya4” DSDD und 


zwei Apple-Standardlaufwerke. 
Maximal ca. 10MByte im Direktzu- 
griff. 


Bestell-Nr.: A 1014 





RN) jetzt 512 K-RAM 


AP 20 

INTEMEX mit 68 000 CPU und 123 
k-RAM. Diese Karte macht aus Ihrem 
Rechner mit „Applebus” einen ech- 
ten 16 bit-Rechner. Eine Zusatzkarte 
(AP 26) ermöglicht einen Arbeitsspei- 
cher bis zu einem MByte und an Soft- 
ware gibt es einiges. 2.B. stehen drei 
Betriebssysteme und die wichtigsten 
Hochsprachen zur Verfügung. 
Bestell-Nr. A 1020 








g > 
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AP 19 

12-Kanal AD-DA-Wandler mit 12 bit 
Auflösung und 25 u sec Wandlungs- 
zeit. Eingangsspannung +10 V. Ein 
schneller Wandler für extrem 
schnelle Anwendungen. 
Bestell-Nr.: A 1019 





ESISWIAREFTNH 


NEU! 8 MHz Takt 


AP22 

INTEMEX mit Z 80 B-CPU und 64 
k-RAM. Wenn Sie einmal diese Karte 
in Aktion gesehen haben, werden Sie 
auch feststellen: „Geschwindigkeit 
ist keine Hexerei, man braucht nur 
die AP 22”. Mit dieser Karte wird Ihr 
APPLE Il zum z.Z. schnellsten CP/M- 
Computer, und in Verbindung mit 
dem SPACE 84 erhalten Sie Compu- 
terleistung, die wirklich einmalig ist. 
Wir vermitteln gerne eine Vorführung. 
Bestell-Nr. A 1022 





Das Interface-Buch von IBS, ein Buch für Alle, die Ihren APPLE II oder Kompatiblen 

optimalnutzen wollen. Detaillierte Schaltpläne, Bauteilelisten und Benutzungshinweise 

N zu allen IBS-Interfaces finden Sie jetzt in einem Buch vereint. Ausführliche Abhandlun- 

\) .. gen über Spezialschaltungen, über Anwendungsmöglichkeiten, über neue Software- 
NND welten aber auch über die Grenzen des APPLE II-Systems bestimmen den Wert dieses 


Buches. 


Für nur DM 8,00 erhalten Sie dieses Buch ab sofort bei Ihrem Computerfachhändler 
oder für DM 8,00 + DM 2,00 Versandkosten bei IBS COMPUTERVERTRIEB. 
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Olper Straße 10 :- 4800 Bielefeld 14 - Tel.: 0521/444032 - W. Germany 
1011 Rose Marie Lane 16 - Stockton CA 95207 - Tel. 209/473 - 7473 USA 








